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Appendix  B 
Code  Listings 


The  relationships  among  the  computer  programs  that  were  developed  to 
acquire  and  process  data  with  the  Computed-Tomograph  Imaging 
SpectroPolarimeter  (CTISP)  are  shown  in  the  following  flow  diagram.  The  three 
programs  on  the  right  side  of  the  diagram  involve  the  calibration  facility  and  are 
only  executed  when  a  new  calibration  matrix  is  needed.  The  three  programs  on 
the  left  side  of  the  diagram  are  the  programs  that  are  executed  for  each  scene  that 
is  acquired.  Code  listings  for  these  six  programs  are  given  on  the  following 
pages.  In  addition,  a  code  listing  for  one  other  program,  called  cal-utihty,  is  also 
provided.  This  program  is  not  used  during  standard  operation  of  the  system,  but 
is  used  to  facilitate  maintenance  of  the  calibration  facility. 


“tga”  output  “log”  file  (text  format 

image  mosaic  file  data  output) 
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Cal3 


FUes:  cal3.cpp 

calSDlg.cpp 

camera.cpp 

monochrometer.cpp 

pol_states.cpp 

xyposition.cpp 

sioerror.c 

cal3.h 

cal3Dlg.h 

camera.h 

param.h 

poI_states.h 

xyposition.h 

caI3.cpp 

//  caB.cpp  :  Defines  the  class  behaviors  for  the  application. 

// 

#include  "stdafx.h" 

#include  "cal3.h" 

#include  "calSDlg.h" 

#ifdef_DEBUG 

#defme  new  DEBUG_NEW 

#undefTHIS_FILE 

static  char  THIS_FILE[]  = _ ^FILE _ ; 

#endif 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CCaBApp 

BEGIN_MESSAGE_MAP(CCaBApp,  CWinApp) 

//{  {AFX_MSG_MAP(CCaBApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 

//}}AFX_MSG 

ON_COMMAND(ID_HELP,  CWinApp:;OnHelp) 
END_MESSAGE_MAP() 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CCaBApp  construction 

CCaBApp-CCaBAppO 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  Initinstance 

} 
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Illlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^^ 

I  I  The  one  and  only  CCalSApp  object 

CCaBApp  theApp; 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

//  CCaBApp  initialization 

BOOL  CCaBApp:  :InitInstanceO 

{ 

AficEnableControlContainerQ; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  should  remove  from  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef_AFXDLL 

EnableSdControlsO;  . //  Call  this  when  using  MFC  in  a  shared  DLL 

#else 

EnableSdControlsStaticO;//  Call  this  when  linking  to  MFC  statically 
#endif 

CCaBDlg  dig; 
m__pMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModal(); 
if  (nResponse  =  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  IDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  appUcation's  message  pump, 
return  FALSE; 
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caBDlg.cpp 


//  caBDlg.cpp  :  implementation  file 

// 

#mclude  "stdafic.h" 

#include  "cal3.h" 

#include  "cal3Dlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  TfflS_FILE[]  =  _FILE_; 

#endif 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAbouflDlgO; 

//  Dialog  Data 

//{  {AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD_ABOUTBOX  }; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  function  overrides 

//{ {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX); 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{ {AFX_MSG(CAboutDlg) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 


CAboutDlg:  :CAboutDlgO :  CDialog(CAboutDlg::IDD) 

{ 

//{  {AFX_DATA_INIT(CAboutDlg) 
//}}AFX_DATA_INIT 


void  CAboutDlg:  :DoDataExchange(CDataExchange*  pDX) 


//DDX/DDV 


B4 


Appendix  6  Code  Listing 


{ 

CDialog:  :DoDataExchange(pDX); 

//{  {AFX_DATA_MAP(CAboutDlg) 

//}  }  AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{  {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

//CCalSDlg  dialog 

CCal3Dlg::CCal3Dlg(CWnd*  pParent  /*=NULL*/) 

:  CDialog(CCal3Dlg::IDD,  pParent) 

{ 

//{  {AFX_DATA_INIT(CCal3Dlg) 

m_winc  =  20; 

m_wstart  =  440; 

m_wsteps  =  16; 

mxstart  =  495; 

m_ystart  =  516; 

m_pstate  =  _T(""); 

mwave  =  0; 

m_imax  =  0; 

m_imean  =  0; 

m_imin  =  0; 

mminusx  =  0; 

m_minusy  =  0; 

m_plusx  =  0; 

m_plusy  =  0; 

m_Status_Edit  =  _T(""); 

mxpos  =  O.Of; 

m_jpos  =  O.Of; 

m_pol  =  _TC"’); 

miexp  =  0.012f; 

m_outfile  =  _T(""); 

m_cur_exp  =  0; 

m_tot_exp  =  0; 

m_cur_wp  =  O.Of; 

pstates  =  0; 

mexp  =  O.Of; 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
m_hIcon  =  A£sGetApp()->LoadIcon(lDR_MAINFRAME); 

} 

void  CCal3Dlg:;DoDataExchange(CDataExchange*  pDX) 
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{ 


CDialog:  :DoDataExchange(pDX); 

//{ {AFX_DATA_MAP(CCal3Dlg) 

DDX_Control(pDX,  IDC_POL_COMBO,  m_pol_con); 
DDX_Control(pDX,  IDC_STATUS_BOX,  m_Status_Coii); 
DDX_Text(pDX,  IDC_WINC_BOX,  m_wmc); 
DDX_Text(pDX,  IDC_WSTART_BOX,  m_wstart); 
DDV_MinMaxUInt(pDX,  ra_wstart,  350,  800); 
DDX_Text(pDX,  IDC_WSTEPS_BOX,  m_wsteps); 
DDX_Text(pDX,  IDC_XSTART_BOX,  m_xstart); 
DDV_MiiiMaxUInt(pDX,  m  xstart,  420,  540); 
DDX_Text(pDX,  IDC_YSTART_BOX,  m_ystart); 
DDV_MinMaxUInt(pDX,  m_ystart,  456,  574); 
DDX_Text(pDX,  IDC_PSTATE_BOX,  m_pstate); 
DDX_Text(pDX,  IDC_WAVE_BOX,  m_wave); 
DDX_Text(pDX,  IDC_IMAX_BOX,  m_imax); 
DDX_Text(pDX,  IDC_IMEAN_BOX,  m_imean); 
DDX_Text(pDX,  IDC  IMIN  BOX,  m  imin); 

DDX_Text(pDX,  IDC_MINUSX_BOX,  m_mmusx); 
DDX_Text(pDX,  IDC_MINUSY_BOX,  m_mmusy); 
DDX_Text(pDX,  IDC_PLUSX_BOX,  m_plusx); 
DDX_Text(pDX,  IDC_PLUSY_BOX,  m_plusy); 
DDX_Text(pDX,  IDC_STATUS_BOX,  m_Status_Edit); 
DDX_Text(pDX,  IDC_XPOS_BOX,  m_xpos); 

DDX_Text(pDX,  IDC_YPOS_BOX,  m_ypos); 
DDX_CBString(pDX,  IDC_POL_COMBO,  m__pol); 
DDX_Text(pDX,  IDC_IEXP_BOX,  mjexp); 

DDX_Text(pDX,  IDC_OUTFILE_BROWSE_BOX,  m_outfile); 
DDX_Text(pDX,  IDC_CURRENT_EXP_BOX,  m_cur_exp); 
DDX_Text(pDX,  IDC_TOT_EXP_BOX,  m_tot_exp); 
DDX_Text(pDX,  IDC  WP  BOX,  m  cur  wp); 
DDX_Text(pDX,  IDC_EXP  BOX,  m  exp); 

//}  }  AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CCal3Dlg,  CDialog) 

//{  {AFX_MSG_MAP(CCal3Dlg) 

ON_WM_SYSCOMMAND0 

ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 

ON_BN_CLICKED(IDC_CAL_BUTTON,OnCalButtoii) 

ON_BN_CLICK3ED(IDC_EXIT_BUTTON,OnExitButton) 

ON_BN_CLICKED(IDC_ONE_POL_RADIO,OnOnePolRadio) 

ON_BN_CLICKED(IDC_ALL_POL_RADIO,OnAllPolRadio) 

ON_BN_CLICKED(IDC_OUTFE.E_BROWSE_BUTTON, 

OnOutfileBrowseButton) 

//}}AFX_MSG_MAP 

END_MESSAGE_MAP0 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 
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//  CCalSDlg  message  handlers 


BOOL  CCal3Dlg::OnImtDialog() 

{ 

CDialog::OnInitDialogO; 

//  Add  "About..."  menu  item  to  system  menu. 

//  IDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOUTBOX); 
ASSERT(IDM_ABOUTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if  (pSysMenu  !=  NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 
if  (!strAboutMenu.IsEmpty()) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STRING,  IDM_ABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 


SetIcon(m_hIcon,  TRUE); . //  Set  big  icon 

SetIcon(m_hIcon,  FALSE); . //  Set  small  icon 


//  TODO:  Add  extra  initialization  here 

return  TRUE;  //return  TRUE  imless  you  set  the  focus  to  a  control 

} 

void  CCal3Dlg::OnSysCommand(UINT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 

CAboutDlg  dlgAbout; 
dlgAbout.DoModal(); 

} 

else 

{ 

CDialog;:OnSysCommand(nID,  IParam); 

} 

} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 


Appendix  B  Code  Listing 


B7 


//  this  is  automatically  done  for  you  by  the  framework. 

void  CCal3Dlg::OnPamtO 

{ 

if  (IsIconicO) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WM_ICONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcO,  0); 

//  Center  icon  in  client  rectangle 

int  cxicon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect); 

int  X  =  (rect.WidthO  -  cxicon  +  1)  /  2; 

int  y  =  (rect.Height()  -  cylcon  +  1)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  m  hicon); 

} 

else 

{ 

CDialog::OnPaint(); 

} 

} 

//  The  system  calls  this  to  obtain  the  cursor  to  display  while  the  user  drags 
//  the  minimized  window. 

HCURSOR  CCal3Dlg::OnQueryDragIcon() 

{ 

return  (HCURSOR)  m  hicon; 

} 

void  CCal3Dlg::OnCalButton() 

{ 

int  iResult,  i,  m,  n,  k; 
int  xguess,  yguess,  wave; 

FILE  *outfile; 

unsigned  short  buffer[CCD_WIDTH*CCD_HEIGHT]; 

BOOL  bUseHighGain=l; 

BOOL  bUseROI=l; 

int  nMessageMode=NO_MESSAGES; 

struct  statsst  imagestats; 

int  nonzero; 

unsigned  short  *buff; 

float  exp  time,  exp[100]; 

int  pol_pos[POL_STATES+l]; 

char  mess[200]; 
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char  *pol_st[POL_STATES+l]={"Circular",  "Vertical”,  "45  Degrees", 
"Horizontal",  "None"}; 
int  pol,  pol_order[POL_STATES+l]; 
double  wave_voltage[100]; 
int  xp,  xm,  yp,  ym; 
char  fa[200]; 

int  iflt,  init_filter,  last_filter,  nfilters; 

//  Get  parameters 
UpdateData  (TRUE); 

//  Open  output  file 

strcpy  (&,  (LPCTSTR)m_outfile); 

if  (fii[0]  =  W)  { 

MessageBox  ("No  Output  File  Selected",  "Cal",  MB_OK); 
return; 

} 

if(  (outfile  =  fopen(fii,"w"  ))  —  NULL  )  { 

MessageBox("Error  opening  calibration  file",  "Cal",  MB_OK); 
return; 

} 

//  Make  sure  that  the  Frame  width  defined  by  the  ROI  is  even. 

//  An  odd  value  will  result  in  an  image  with  line  to  line 
//  horizontal  shifts  due  to  a  bug  in  the  camera  software, 
if  ((FRAME_WIDTH  %  2)  !=  0)  { 

MessageBox  ("Frame  width  must  be  even.  Adjust  ROI  parameters.", 
"Calibrate",  MB_OK); 

OnExitButton  0; 

} 

//  Determine  filters  to  use 
pol  =  m_pol_con.GetCurSel  0; 
if(pol  =  5){ 
init_filter=  1; 
last_filter  =  4; 
nfilters  =  4; 

} 

else  { 

init_filter  =  pol; 
last_filter  =  pol; 
nfilters  =  1; 

} 

//  Determine  order  for  polarization  states 
if  (pstates  =  0)  { 

MessageBox  ("Polarization  states  mxist  be  selected",  "Calibrate", 
MB_OK); 

return; 

} 


Appendix  B  Code  Listing 


B9 


else  if  (pstates  =  1) 
pol_order[0]  =  pol; 
else  { 

for  (i=0;  i<pstates;  i++) 
pol_order[i]  =  i; 
pol=  1; 

} 

//  Calculate  positions  for  polari2ation  states 
pol_pos[0]  =  0; 
pol_pos[l]  =  0; 

pol_pos[2]  =  (int)(45.0  ♦  ((float)STEPS_PER_REV/360.0)  +  .5); 
pol_pos[3]  =  (int)(90.0  *  ((float)STEPS_PER_REV/360.0)  +  .5); 
pol_pos[4]  =  0; 

//  Calculate  number  of  exposures  and  display 
m_tot_exp  =  m_wsteps*pstates*nfilters; 
m_ciu’_exp  =  0; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Set  up  monochrometer 
iResult  =  monochrometer_setup  Q; 
if  (iResult!=0)  { 

MessageBox  ("Error  in  monochrometer  setup",  "Calibrate",  MB_OK); 
OnExitButton  0; 

} 

m_Status_Edit  +=  "Monochrometer  set  up  complete\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Set  up  camera 

iResult  =  camera_setup(bUseHighGam,  bUseROI,  nMessageMode,  m_iexp); 
if  (iResult!=0)  { 

sprintf(mess,  "Error:  camera_setup  returned  %i\n",iResult); 

MessageBox  (mess,  "Calibrate",  MB_OK); 

OnExitButton  (); 

} 

m_Status_Edit  +=  "Camera  set  up  complete\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Configure  ports  for  wave  plate,  photodetector,  polarizer,  and  pol  filter 
iResult  =  waveplate_setup  0; 
if  (iResult!=0)  { 

sprintf(mess,  "Error:  waveplate_setup  returned  %i\n",iResult); 
MessageBox  (mess,  "Calibrate",  MB_OK); 

OnExitButton  (); 

} 

iResult  =  photodetector_setup  0; 
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if  (iResult!=0)  { 

sprmtf(mess,  "Error:  photodetector_setup  returned  %i\a",iResult); 
MessageBox  (mess,  "Calibrate",  MB_OK); 

OnExitButton  0; 

} 

polarizer_setup  0; 
polarizerreset  0; 
pol_filter_setup  0; 

m_Status_Edit  +=  "waveplate,  photodetector,  polarizer,  and  pol  filter  set  up 
complete\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  0; 

//  calibrate  polarizer  movement 

if  (pstates  =  4  ||  ((pol  >  0)  &&  (pol  <  4)))  { 

m_Status_E^t  +=  "Calibrating  polarizer  position\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 
polarizer_reset  (); 

} 

//  Calibrate  circular  polarization 
if  (pstates  =  4  ||  pol  =  0)  { 

for  (m=0;  m<m_wsteps;  m-H-)  { 
wave  =  m_wstart+m*m_winc; 
wave_voltage[m]  =  circular_j)ol  (wave); 

} 

} 

//  Make  sure  mirror  is  down 
FlipMirror  (down); 

//  calculate  exposure  time  for  middle  wavelength 
set_wp_voltage  (5.0); 
wave  =  m_wstart+(m_wsteps/2)*m_winc; 
if  (pol=0) 

set_wp_voltage  (wave_voltage[m]); 

GoToWavelength  (wave); 
m_wave  =  wave; 

UpdateData  (FALSE); 

updatestatusscroll  (); 

exp_time  =  setexposure  (buffer,  miexp); 

//  Set  exposure  for  middle  wavelength 

iResult=camera_setup  (bUseHighGain,  bUseROI,  nMessageMode, 
exptime); 

if  (iResult!=0)  { 

sprintf(mess,  "Error:  camera  setup  returned  %i\n",iResult); 
MessageBox  (mess,  "Calibrate",  MB  OK); 

OnExitButton  0; 
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} 

sprintf  (mess,  "Exposure  time  set  to  %f\r\n",  exp_time); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scrolI  (); 

//  Determine  initial  position  of  fiber 
// 

iResult=pvAcquireFrame(BOARDNUM,bufFer); 
if  (iResult!=0)  { 

sprintf  (mess,  "ERROR  pvacquirefi^me  returned  %i\n",iResuit); 
MessageBox  (mess,  "Calibrate",  MB  OK); 

} 

stats  (buffer,  &image_stats); 

pos  =  find  center  (buffer,  image_stats.mean*thresh); 

mxstart  =  (int)(pos->x  +  0.5); 

m_ystart  =  (mt)(pos->y  +  0.5); 

xguess  =  mxstart; 

yguess  =  m__ystart; 

m_Status_Edit  +=  "Fiber  position  calculated\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Calculate  camera  exposure  time  at  each  wavelength 
// 

setwpvoltage  (5.0); 
for  (m=0;  m<m_wsteps;  m-H-)  { 
wave  =  m_wstart+m*m_winc; 
if  (pol=0) 

setwpvoltage  (wave_voltage[m]); 

GoToWavelength  (wave); 
mwave  =  wave; 

UpdateData  (FALSE); 
update_status_scroll  (); 
exp[m]  =  setexposure  (buffer,  miexp); 
exp[m]  =  set  exposure  (buffer,  exp[m]); 

sprintf  (mess,  "Exposure  time  for  %dnm  is  %f\r\n",  wave,  exp[m]); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

} 

//  Write  header  info 

Q)rintf  (outfile,  "%d  %d\n",  FRAME_WIDTH,  FRAME_HEIGHT); 

Q)rintf  (outfile,  "1  IW); 

fprintf  (outfile,  "%d  1  l\n",  m  xstart); 

Q)rintf  (outfile,  "%d  1  l\n",  m_ystart); 

Q)rintf  (outfile,  "%d\n",  nfilters); 

^rintf  (outfile,  "%d  %d  %d\n",  m  wstart,  m_winc,  m  wsteps); 

^rintf  (outfile,  "%d\n",  pstates); 
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^rintf  (outfile,  "%d\a",  m_wsteps*pstates*iifilters); 

//  Acquire  calibration  images 

// 

for  (iflt=imt_filter;  iflt<=last_filter;  iflt-H-)  { 

rotate_pol_filter(iflt*STEPS_PER_FILTER+POL_FILTER_OFFSET); 
for  (m=0;  m<m_wsteps;  m++)  { 

//  Set  wavelength  and  exposure  time 
// 

wave  =  m_wstart+m*m_winc; 

GoToWavelengfli  (wave); 
m_wave  =  wave; 
m_exp  =  exp[m]; 
exptime  =  exp[m]; 

iResult=camera_setup  (bUseHighGain,  bUseROI,  nMessageMode, 
exp_time); 

if  (iResult!=0) 

printf("ERROR  camera_setup  returned  %i\n",iResult); 

//  rotate  through  polarization  states 
for  (n=0;  n<pstates;  n-H-)  { 

rotate_polarizer  (pol_pos[pol_order[n]],  ABS_MODE); 
if  (pol_order[n]==0) 

set_wp_voltage  (wave_voltage[m]); 
else 

set_wp_voltage  (5.0); 
m_pstate  =  pol_st[pol_order[n]]; 

Sleep  (1000); 

//  Acquire  image 
// 

m_cm_exp-H-; 

UpdateData  (FALSE); 
update_status_scroll  Q; 

iResult=pvAcquireFrame(BOARDNUM,buffer); 
if  (iResult!=0)  { 

sprintf  (mess,  "ERROR  pvacquireftame  returned  %i\n",iResult); 
MessageBox  (mess,  "Calibrate",  MB_OK); 

} 

/*  These  lines  are  needed  for  radiometric  calibration 
iResult  =  read_photodetector  0; 

§)rintf  (outfile,  "%d  %d  %d\n",  pol_order[n],  wave,  iResult); 
mimean  =  iResult; 

UpdateData  (FALSE); 
updatestatusscroll  (); 

*/ 

//  Calculate  stats  and  zero  pixels  below  threshold 

// 

stats  (buffer,  &image_stats); 
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nonzero  =  zero  (buffer,  3.0,  xguess,  yguess); . 

^rintf  (outfile,  ''%d  %d  %d  %d  %d  %d  %f\n",  xguess,  yguess, 
iflt,  pol_order[n],  wave,  nonzero,  exp_tinie); 
buff  =  buffer; 

for  (k?=0;  k<(FRAME_WIDTH*FRAME_HEIGHT);  k++)  { 
if  ((*buflf)  >  0) 

§)rintf  (outfile,  "%d  %d\n",  k,  *bufif); 
buff-H-; 

} 

} 

} 

} 

//  Move  polarizer  and  filter  wheel  to  starting  positions 
rotate_pol_filter  (0); 
rotate_polarizer  (0,  ABS_MODE); 

fclose  (outfile); 
comclose  (POL_PORT); 
comclose  (POL_FlLTER_PORT); 

MessageBox  ("Done",  "Calibrate",  MB  OK); 
return; 


} 


float  CCal3Dlg::set_exposure  (unsigned  short  ’•'buffer,  float  exp  time) 

{ 

int  iResult; 

struct  statsst  imagestats; 
char  mess[200]; 

BOOL  bUseHighGain=l ; 

BOOLbUseROI=l; 

int  nMessageMode=NO_MESSAGES; 

//  Set  wavelength  to  initial  setting 

// 

iResult=camera_setup  (bUseHighGain,  bUseROI,  nMessageMode, 
exp_time); 

if  (iResult!=0)  { 

sprintf(mess,  "Error;  camera  setup  returned  %i\n",iResult); 
MessageBox  (mess,  "Calibrate",  MB  OK); 

OnExitButton  (); 

} 

sprintf  (mess,  "Exposure  time  set  to  %f\r\n",  exp  time); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  acquire  fi-ame 
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// 

iResult=pvAcquireFraine(BOARDNUM, buffer); 
if  (iResult!=0)  { 

sprintf  (mess,  "ERROR  pvacquireframe  returned  %i\n",iResult); 
MessageBox  (mess,  "Calibrate",  MB_OK); 

} 

//  Calculate  correct  exposure  for  this  wavelength 

// 

stats  (buffer,  &image_stats); 
if  (image_stats.max  =  MAX_INTENSITY)  { 

sprintf  (mess,  "image  saturated,  exposure  time  =  %f' ,  m_iexp); 
{Result  =  MessageBox  (mess,  "calibrate",  MB_OKCANCEL); 
if  (iResult  =  IDC  ANCEL) 

OnExitButton  (); 

} 

m_exp  =  (float)(exp_time  *  ((intensity_1hresh*MAX_INTENSITY)  / 
(image_stats.max-image_stats.mean))); 
m_imin  =  image_stats.min; 
m_imax  =  image_stats.max; 
m_imean  =  image_stats.mean; 

sprintf  (mess,  "Calculated  exposure  time  is  %f\r\n",  m_exp); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 
return  (m_exp); 


void  CCal3Dlg::OnExitButton() 

{ 

DestroyWindow  0; 
exit  (0); 


void  CCal3Dlg::update_status_scroll  0 

{ 

int  minscr,  maxscr; 


m_Status_Con.GetScrolIRange  (SB_VERT,  &minscr,  &maxscr); 
if  (maxscr  >  1 1) 

m_Status_Con.LineScroll  (maxscr-11, 0); 

Update  Window  0; 


//  zero  -  zeroes  all  pixel  values  less  than  a  threshold 

// 
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int  CCalSDlg::  zero  (unsigned  short  *butfer,  float  threshold,  int  xguess, 
int  yguess) 

{ 

unsigned  short  *buff; 

inti,j,k; 

intnum; 

double  sxun,  avg,  sd; 
char  mess[100]; 
int  val; 

xguess  =  xguess  -  ROI_LEFT; 
yguess  =  yguess  -  ROI_TOP; 

Sinn  =  0.0; 
for  (i=0;  i<30;  i-H-) 
for  (j=0;  j<100;  j-H-) 

siun  +=  *(bufiferl-i*FRAME_WIDTH+j); 
avg  =  sum  /  3000.0; 
sum  =  0; 

for  (i=0;  i<30;  i-H-) 
for(j=0;j<100;j-H-)  { 

val  =  avg  -  *(buffer-i-i*FRAME_WIDTH-tj); 
sum  -i-=  val  *  val; 

} 

sd  =  sqrt(sum/2999.0); 
num  =  0; 
bufF=  buffer; 

for  (k=0;k<(FRAME_WIDTH*FRAME_HEIGHT);k-H-)  { 
if  ((float)*buff'  <  avg-i-threshold*sd) 

*bufr=0; 
else  { 

*buff‘=  *buff'  -  avg; 
niun-H-; 

} 

buff-H-; 

} 

sprintf  (mess,  "background  avg=%f  sd=%f  niun=%d\r\n",  avg,  sd,  num); 
m_Status_Edit  +-  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 
return  (niun); 

} 

void  CCal3Dlg::OnOnePolRadio0 

{ 

pstates  =  1; 

} 

void  CCal3Dlg::OnAllPolRadio0 

{ 

pstates  =  POL_STATES; 
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} 


void  CCalSDlg:  :OnOutfileBrowseButtonO 

{ 

int  iresult; 

ofii3.1StractSize  =  sizeof  (OPENFILENAME); 


ofii3.hInstance  =  NULL; 
ofa3.hwndOwner  =  NULL; 

ofii3.1pstrFilter  =  "CUSP  cal  files  (*.cal)\0*.cal\0All  Files  (*  *)\0*.*\0\0"; 

ofii3.1pstrCustoiiiFilter  =  NULL; 

ofii3.nMaxCustFilter  =  0; 

ofii3.iiFilterIndex  =  1; 

ofii3.1pstrDefExt  =  "cal"; 

ofii3.1CxistData  =  NULL; 

ofii3.1pfiiHook  =  NULL; 

ofii3.1pTemplateName  =  NULL; 

ofii3.1pstrFile  =  out_name; 

ofii3.iiMaxFile  =  500; 

ofii3.1pstrFileTitle  =  out_title; 

ofii3.nMaxFileTitle  =  99; 

ofii3.1pstrImtialDir  =  "WctispWdata"; 

ofii3.1pstrTitle  =  "Open  Output  File"; 

out_name[0]  =  W; 

iresult  =  GetOpenFileName  (&ofii3); 

if  (iresult)  { 

UpdateData  (TRUE); 
m_outfile  =  out_name; 

UpdateData  (FALSE); 

UpdateWindow  0; 

} 
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camera.cpp 


#include  "stdafx.h" 

#include  "camera.h" 

int  camera_setup  (  BOOL  bUseHighGain,  BOOL  bUseROI,  int  nMessageMode, 
double 

exptime) 

{ 

int  nResult; 

//char  szLastError[64]; 

//  Handle  errors  here 
pvSetErrorMode(  PV_EM_SILENT  ); 

//  Reset  the  board 

nResult  =  pvInitCapture(  BOARDNUM  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  resetting  boardlW  ); 
goto  fail; 

} 

//  Set  the  device  driver  size  expectations 

nResult  =  pvSetOptions(  BOARDNUM,  CCD_WIDTH,  CCD_HEIGHT, 
BITS_PER_PIXEL, 

TIME_OUT,  NUM_CHANNELS  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  device  driver  infomiation!\n"  ); 
goto  fail; 

} 

//  Set  the  DLL  size  expectations 

nResult  =  pvSetCCDSize(  BOARDNUM,  CCD_WIDTH,  CCD_HEIGHT  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  image  size!\n"  ); 
goto  fail; 

} 

//  Set  the  PROM  Page 

nResult  =  pvSetPROMPage(  BOARDNUM,(  bUseHighGain  ?  HIGH  GAIN  ; 
LOW_GAIN  )  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  PROM  page!\n"  ); 
goto  fail; 

} 
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//  Set  the  CCD  Temperature.  This  should  happen  right  after  Set  PROM  Page, 

//  because  setting  the  PROM  page  reset  the  temperature  to  a  default  value 
nResult  =  pvSetCCDTemperatureCalibrated(  BOARDNUM,  CCD_TEMP  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  CCD  temperaturelV  ); 
goto  fail; 

} 

//  Set  the  camera  timing  constants.  The  Master  Clock,  Serial  Wait,  and  Parallel 
Wait 

//  values  are  of  particular  interest  because  they  determine  the  accuracy  of 
//  the  exposure  time. 

//  If  you  call  pvSetWaitTimes,  PVAPI  will  perform  some  calculations  and  call 
this 

//  function  anyway.  It's  best  to  call  this  directly  if  you  know  the  values. 
nResult  =  pvSetWaitConstants(  BOARDNUM, 

MASTER_CLOCK, 

DISKING_WAIT, 

PARALLEL_WAIT, 

AFTER_EXPO, 

SERIAL_WAIT, 

SKIP_WAIT  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  timing  constants!\n"  ); 
goto  fail; 

} 

//  Set  the  binning 

nResult  =  pvSetXBinning(  BOARDNUM,  X_BINNING  ); 
if( nResult  !=  SUCCESS) 

{ 

printf("Error  setting  serial  binninglV  ); 
goto  fail; 

} 

nResult  =  pvSetYBinning(  BOARDNUM,  Y_BINNING  ); 
if( nResult  !=  SUCCESS) 

{ 

printf("Error  setting  parallel  binning!\n"  ); 
goto  fail; 

} 

//  Set  the  ROI  or  lack  thereof 
if(bUseROI) 

{ 

nResult  =  pvEnableSingleROI(  BOARDNUM,  ROI_LEFT,  ROI_TOP, 
ROI_RIGHT, 
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ROI_BOTTOM  ); 
if(iiResult!=  SUCCESS) 

{ 

printf("Error  setting  region-of-interest!\n"  ); 
goto  fail; 

} 

} 

else 

{ 

nResult  =  pvDisableROI(  BOARDNUM  ); 
if  (  nResult  !=  SUCCESS  ) 

{ 

printfC'Error  disabling  region-of-interest!\n"  ); 
goto  fail; 

} 


//  Set  the  exposure  time 

nResult  =  pvSetExposureMode(  BOARDNUM,  PVXMINTERNAL, 
exptime); 

if  ( nResult  !=  SUCCESS  ) 

{ 

printfC'Error  setting  exposure  mode!\n"  ); 
goto  fail; 

} 

return  SUCCESS; 
fail: 

if  (  nMessageMode  !=  NO  MESSAGES  ) 

{ 

if  (  nMessageMode  =  VERBOSE  MESSAGES  ) 

{ 

//  See  if  the  last  return  code  tells  us  more 
switch  (  nResult ) 

{ 

case  ERROR_NO_DRrVER: 
printf("The  VxD  could  not  be  loaded.V  ); 
break; 

case  ERROR_SERIAL  INPUT  LINK  BAD: 
printf("The  input  link  is  not  connected.\n"  ); 
break; 

case  ERROR_SERIAL_LINK_BAD: 
printf("\n\nThe  output  serial  link  is  not  connected."  ); 
break; 

case  ERROR_SERIAL_NO_RESPONSE: 
printf("\n\nThe  camera  did  not  respond  to  the  serial  command."  ); 
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break; 


case  ERROR_SERIAL_BAD_RESPONSE: 
printf("\n\nAii  unexpected  serial  response  was  received." ); 
break; 

case  ERROR_SERIAL_WRITE_ERROR: 
printf("\n\nAn  error  occurred  while  writing  to  the  serial  port." ); 
break; 

case  ERROR_SERIAL_READ_ERROR: 

printf(  "\n\nAn  error  occxured  while  reading  from  the  serial  port."  ); 
break; 

case  ERROR_SERIAL_CANT_OPEN_PORT: 
printf(  "\n\nAn  error  occinred  while  opening  the  serial  port." ); 
break; 

case  ERROR_SERIAL_PORT_INIT_ERROR: 
printf(  "\n\nAn  error  occurred  while  initializing  the  serial  port."  ); 
break; 

default: 

break; 

} 

} 


} 

return  nResult; 

} 
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monochrometer.cpp 

//this  program  controls  the  CVI  CMl  10  monochromator  using  the  marshallsoft 
library  of 

//  COM  port  functions  and  a  COM  port.  Written  by  Brian  Miles 

//  IN  THE  CURRENT  CONFIG  THE  PROGRAM  NEEDS  THE  WSC32.LIB 

FILE  AS  PART  OF  THE  PROJECT 

#include  "stdafic.h" 

#include  <stdio.h> 

#include  <math.h> 

#include  "Sioerror.h" 

#include  "wsc.h" 

//prototypes 

void  CheckStatusByte(int); 
void  ReadCom(int); 
void  cdecl  SioError(int,  char); 
void  SendChar(int,int); 
int  QueryMono(int,int); 
void  ClearBuffers(int); 
void  SelectGrating(int,int); 
void  GoToWavelength(int); 

int  MonochromatorSetupO; 

void  ShutdownMonochromator(); 
void  cdecl  SioError(int  Code,  char  *Text); 

//  global  declarations 
int  ComNxun; 
int  ichar; 

BOOL  EchoToComp; 

int  monochrometer_setupO 

{ 

int  CompBaudRate,MonoBaudRate; 

BOOL  FatalError=FALSE; 

//which  com  port  do  you  want  to  use? 

ComNum=COM4; 

//initialization  of  com  port 

//vail =SioReset(ComNum,5 12,512); 
if  (SioReset(ComNiun,5 12,51 2)<0) 

SioError(SioReset(ComNiun,5 12,5 1 2),""); 

else  printf("COM%i  initialized  correctly\n",(ComNum+l));  //COMS  start  at 
'O',  thus  add  1  to  display  right  # 

//  Set  Computer  baud  rate  to  9600  to  initially  talk  to  mono  (that's  its  default 
rate) 
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CompBaudRate=9600; 
if  (SioBaud(CoiiiNum,CompBaudRate)<0) 
SioEiTor(SioBaud(CoinNiim,CompBaudRate),""); 

else  printf("Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 

//set  flow  control  to  hardware 

if(SioFlow(ConiNuni,'H')<0)SioError(SioFlow(ConiNum,'H'),""); 

//first  clear  the  transmit  and  receive  buffers 
ClearBuffers(CoinNum); 

//must  set  RTS  high  before  receiving  data  from  mono,  leave  it  high 
if  (SioRTS(ComNum,'S')<0)  SioError(SioRTS(ComNum,'S'),""); 

//  Send  command  to  Mono  to  change  to  300  baud 

MonoBaudRate=300;  //this  is  purely  for  printing,  it  is  set  via  ochai=58,05 
SendChar(ComNum,58); 

SendChar(ComNum,5); 

printf("Mono  Baud  rate  now  set  to  %i  baud\n",MonoBaudRate); 
ReadCom(ComNum);  //read  value  returned  fi'om  monochromator 

//  Now  Set  Computer's  ComNum's  baud  rate  to  300 
CompBaudRate=300; 
if  (SioBaud(ComNum,CompBaudRate)<0) 
SioError(SioBaud(ComNum,CompBaudRate),""); 

else  printf("Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 

//Check  ECHO  to  verify  monochromator  is  listening  and  ready! ! ! 
ClearBuffers(ComNum); 

SendChar(ComNum,27); 

ReadCom(ComNum); 
if  (EchoToComp!=TRUE) 

{ 

MessageBox  (NULL,  "THE  MONOCHROMATOR  IS  NOT  TALKING 
!!!",  "Calibrate", 

MB_OK); 
return  (-1); 

} 

//Finish  setting  up  the  monochromator 

//define  size  which  is  the  size  of  the  default  step 
ClearBuffers(ComNiun); 

SendChar(ComNum,55); 

SendChar(ComNum,5); 

ReadCom(ComNum); 

//Select  the  1200  grating  as  default  ***************  change  this  to  600nm 
on  10/6/98  for  higher  bandpass  * 

ClearBuffers(ComNum); 

SelectGratmg(ComNum,600); 

//Set  the  units  to  Nanometers 
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ClearBuffers(ComNum); 

SendChar(ComNiim,50); 

SendChar(ConiNum,01); 

ReadCom(CoiiiNiim); 

//Set  the  diffraction  order  to  positive 
ClearBufifers(ComNiim); 

SendChar(ConiNuin,5 1); 

SendChar(ConiNum,0 1 ); 

ReadCom(ComNum); 

return  (0); 

}  //end  of  program 

void  CheckStatusByte(int  ByteToCheck) 

{ 

//if  that  character  is  a  status  b)de  examine  it!!! 

//see  pg  42  of  Buchanan,  Applied  PC  graphics,  interrupts  for  this  bitmask 
operation... 

if  (ByteToCheck!=27  &  ByteToCheck!=24) 

{ 

if  (ByteToCheck  &  128) 

{ 

puts("Command  NOT  accepted!!!"); 

if  (ByteToCheck  &  16)  puts("Scan  is  Negative  going!"); 

else  puts("Scan  is  positive  going!"); 

if  (ByteToCheck  &  32)  puts("Specifier  was  too  small!"); 

else  puts("Specifier  was  too  large!"); 

} 

} 

} 

void  ReadCom(int  CN) 

{ 

int  NumBytesRec; 

Sleep(50); 

//find  out  how  many  bytes  are  in  the  retreive  queue 

NuinBytesRec=SioRxQue(CN); 

if  (NumB5^esRec<0)  SioError(NumBytesRec,""); 

//read  the  characters  in 

for  (int  nc=l;nc<=NumBytesRec;nc-H-) 

{ 

//retrieve  a  character  from  the  monochromator 
ichai=SioGetc(CN); 
if  (ichar<0)  SioError(ichar,""); 
if  (ichar=27)  EchoToComp=TRUE; 

CheckStatusByte(ichar); 

} 
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int  QueryMono(int  CN,  int  QueiyB)rte) 

{ 

int  cl,c2,c3,NiunBytesRec;  //chars  to  be  read  in. 

ClearBuffers(CN);  //clear  receive  and  transmitt  buffers 
SendChar(CN,56);//send  initial  common  queny  byte 

switch  (QueryBj^) 

{ 

case  00; 

SendChar(CN,00); 

NumBytesRec=SioRxQue(CN); 
while  (NumBytesRec<=0) 

{ 

// 

//must  set  RTS  high  before  receiving  data  from  mono,  leave  it  high 
if(SioRTS(CN,’S')<0)SioEiTor(SioRTS(CN,'S'),""); 

//Check  ECHO  to  verify  monochromator  is  listening  and  ready! ! ! 
ClearBuffers(CN); 

SendChar(CN,27); 

ReadCom(CN); 
if  (EchoToComp!=TRUE) 

{ 

puts("!!!!!!!!!!  THE  MONOCHROMATOR  IS  NOT  TALKING 

111!!!!!!!!!!"); 

//FataIError=TRUE; 

//  gotoENDPROG; 

} 

else 

puts("The  monochromator  is  talking"); 

// 

ClearBuffers(CN); 

SendChar(CN,00); 

NiunB5:tesRec=SioRxQue(CN); 
c  l=SioGetc(CN); 
if  (cl<=0)  SioError(cl,""); 
c2=SioGetc(CN); 
if  (c2<=0)  SioError(c2,""); 

Sleep(lOOO); 

} 

cl=SioGetc(CN); 
if  (cl<=0)  SioError(cl,""); 
c2=SioGetc(CN); 
if  (c2<=0)  SioError(c2,""); 

Sleep(lOOO); 

printf("Grating  Position  =  %i  nm\n",(256*cl+c2)); 
retum(256*c  1  +c2); 
break; 
case  01: 

SendChar(CN,01); 

cl=SioGetc(CN); 
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c2=SioGetc(CN); 

SAvitch  (c2) 

{ 

case  0: 

putsC'Single"); 
retum(0); 
break; 
case  1: 

puts("  Additive  dbl"); 
retum(l); 
break; 
case  254: 

puts("Subtractive  dbl"); 

retum(254); 

break; 

} 

case  02: 

SendChar(CN,02); 

cl=SioGetc(CN); 

c2=SioGetc(CN); 

printf("Gratmg  Resolution  is  =  %i  grooves/nun\n",(256’'‘cl+c2)); 
retum(256*c  1  +c2); 
break; 
case  03: 

SendChar(CN,03); 

cl=SioGetc(CN); 

c2=SioGetc(CN); 

printf("Grating  Blaze  is  =  %i  iim\n",(256*cl+c2)); 
retum(256*c  1 +c2); 
break; 
case  04: 

SendChar(CN,04); 

cl=SioGetc(CN); 

c2=SioGetc(CN); 

printf("Current  Grating  is  number  %i\n",c2); 
retum(c2); 
break; 
case  05: 

SendChar(CN,05); 

cl=SioGetc(CN); 

c2=SioGetc(CN); 

printf("Current  Scan  Speed  is  =  %i  \n",(256*cl+c2)); 
retum(256*cl-i-c2); 
break; 
case  06: 

SendChar(CN,06); 
cl=SioGetc(CN); 
c2=SioGetc(CN); 
printf("Size  byte  is  %i\n",c2); 
retum(c2); 
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break; 
case  13; 

SendChar(CN,13); 

cl=SioGetc(CN); 

c2=SioGetc(CN); 

prmtf("%i  gratings  installed\n",c2); 
retum(c2); 
break; 
case  14: 

SendChar(CN,14); 
cl=SioGetc(CN); 
c2=SioGetc(CN); 
switch  (c2) 

{ 

caseO: 

puts("Units  are  centi-microns"); 
retum(0); 
break; 
case  1: 

puts("Units  are  nanometers"); 
retum(l); 
break; 
case  2: 

puts("Units  are  Angstroms"); 

retum(2); 

break; 

} 

default: 

putsC'QUERY  INVALID !!!!!!!!!!"); 
retum(-l); 

} 

//check  for  final  status  bytes  from  mono 
c3=SioGetc(CN); 

CheckStatusByte(c3); 

c3=SioGetc(CN); 

if(c3!=24) 

{ 

puts("Did  NOT  receive  final  24  status  byte  from  mono"); 
printf("value  of  final  status  bytes  was  %i\n",c3); 

} 

} 

void  SendChar(int  CN,  int  CharToSend) 

{ 

int  CodeNum; 

if  (SioCTS(CN)>0)  //CN  is  COM  num 

{ 

Sleep(100);//this  seems  like  a  good  value  thus  far 
CodeNum=SioPutc(CN, CharToSend); 
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if  (CodeNum<0)  SioEiTor(CodeNum,""); 

//else  printf("Sent  %i  to  Mooo\n",CharToSend); 
Sleep(200);//likewise  for  this  sleep  param. 

} 

} 

void  ClearBufifers(int  CN) 

Sleep(25); 

if  (SioTxClear(CN)<0)  SioEiTor(SioTxClear<CN),""); 
if(SioRxClear<CN)<0)  SioError(SioRxClear(CN),""); 
Sleep(25); 


void  SelectGrating(int  CN,  int  Grating) 

{ 

int  val; 

val=QueryMono(CN,04);//find  out  which  number  grating  is  installed  600=#2, 
1200=#1 

if  (Grating=600) 

{ 

ClearBuffers(CN); 

SendChar(CN,26); 

SendChar(CN,2); 

ReadCom(CN); 

puts("600  g/mm  grating  selected"); 

if  (val!=2)  Sleep(5000);  //wait  for  grating  to  change  if  600  was  not  selected 
previously 

else  Sleep(2000); 

} 

else 

{ 

ClearBuffers(CN); 

SendChar(CN,26); 

SendChar(CN,l); 

puts("1200  g/mm  grating  selected"); 

if  (val!=l)  Sleep(5000);  //wait  for  grating  to  change  if  600  was  not  selected 
previously 

else  Sleep(2000); 

} 

if  (Grating!=600  &  Grating!=1200)  puts("WARNING  INVALID  GRATING 
SELECTED"); 

} 

void  GoToWavelength(int  Wavelength) 

{ 

int  HighByte,LowB)^e,  OldWavelength; 
double  time2wait; 
int  CN; 
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CN  =  ComNum; 

//determine  wait  based  on  how  far  we  have  to  move 
Sleep(75); 

ClearBuffers(CN); 

OldWavelength=Qu®*yMono(CN,00); 
piintf("01d  Wavelength  is  %i\n'',OIdWavelength); 
ClearBuffers(CN); 

//determine  hi^  and  low  byte 

HighByte=Wavelength/256; 

LowByte=Wavelength-HighByte*256; 

SendChar(CN,16); 

SendChar(CN,HighByte); 

SendChar(CN,LowByte); 

ReadCom(CN); 

time2wait^abs(01dW avelength-(double)Wavelength)/l  00; 
printf(" Waiting  %.lf  seconds  for  grating  to  move  to  %i 
nm\n",time2wait, Wavelength); 

Sleep((long)time2wait* 1 000); 

//allow  time  for  grating  to  move,  1  sec  per  lOOnm 

} 
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pol_states.cpp 

#include  "stdafx.h" 

#include  "cal3.h" 

#include  "caBDlg.h" 

double  v[100]; 
intpd[100]; 
int  cur_pos; 

void  CCal3Dlg:;polar_cal  () 

{ 

int  i,  iresp; 
int  min,  max; 
double  minv,  maxv; 
double  a,  x,  y; 
int  npts; 
char  mess[200]; 
int  iResult; 

printf  ("Performing  polarizer  calibration\n"); 

//  Flip  mirror  up  and  set  waveplate  to  5  volts 
Flip_Mirror  (up); 
setwpvoltage  (5.0); 

//  Rotate  tumstage  one  complete  revolution  and  store  detector  responses 

max  =  0; 

min  =  99999999; 

npts  =  STEPS_PER_REV  /  STEP_INC  +  1; 
for  (i=0;  i<=npts;  i-H-)  { 
v[i]  =  i*STEP_INC; 

rotate_polarizer  ((int)v[i],  ABS  MODE); 
pd[i]  =  read_photodetector  (); 
if  (pd[i]  >  max)  { 
max  =  pd[i]; 
maxv  =  v[i]; 

} 

if  (pd[i]  <  min)  { 
min  =  pd[i]; 
minv  =  v[i]; 

} 

} 

sprintf  (mess,  "minpos  %f  min  %d  maxpos  %f  max  %d\r\n",  minv,  min, 
maxv,  max); 

m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
updatestatusscroll  0; 

//  Find  the  position  that  gives  vertical  polarization 
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best_fit  (max-min,  max-min,  1, 0, 202000, 203,  (double)mm,  (double)min,  1, 
&a,  &x,  &y, 

COSBSE,  npts); 

best_fit  (a-(a*0.1),  a+(a*0.1),  21,  x-1000,  x+1000, 21,  y-(y*0.1),  y+(y*0.1), 
21,  &a,  &x, 

&y,  COSINE,  npts); 

best_fit  (a-(a*0.01),  a+(a*0.01),  21,  x-100,  x+100, 21,  y-(y*0.01), 
y-l-(y*0.01),  21,  &a,  &x, 

&y,  COSINE,  npts); 

best_fit  (a-(a*0.001),  a+(a*0.001),  21,  x-10,  x+10, 21,  y-(y*0.001), 
y+(y*0.001),  21,  &a, 

&x,  &y,  COSINE,  npts); 

sprintf  (mess,  "Best  fit  parameters:  a  =  %f  x  =  %f  y  =  %f\r\n",  a,  x,  y); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Rotate  polarizer  to  max  position 
rotate_polarizer  ((int)x,  ABSMODE); 
iresp  =  read_photodetector  Q; 

printf  ("max  pos  =  %d  Det  resp  =  %d\n",  (int)x,  iresp); 

//  Reset  stepper  motor  so  that  ciurent  position  is  0 
polarizer_reset  (); 

//  Flip  mirror  back  down 
Flip_Mirror  (down); 


double  CCal3Dlg::circular_pol(int  wavelength) 

{ 

inti; 

double  minv,  maxv; 
double  a,  x,  y; 
int  min,  max; 
double  pvoltage; 
int  npts; 
char  mess[200]; 
int  iResult; 

//  Calculate  predicted  voltage  at  minimum 
pvoltage  =  -0.00159568*wavelength  +  3.82863592; 

sprintf  (mess,  "waveplate  voltage  at  %dnm  is  %fir\n",  wavelength,  pvoltage); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
updatestatusscroll  (); 
return  (pvoltage); 
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} 


void  best_fit  (double  alow,  double  ahigh,  int  asteps,  double  xlow,  double  xhigh, 
int  xsteps, 

double  ylow,  double  yhigh,  int  ysteps,  double  *a,  double  *x,  double 
int  ciuve_type,  int  npts) 

{ 

double  minerr,  sumerr; 
double  xinc,  yinc,  ainc; 
inti,j,k,m; 
double  xO,  yO,  aO; 
double  err; 

minerr  =  99999999999999.0; 
if  (xsteps  >  1) 

xinc  =  (xhigh-xlow)  /  (xsteps- 1); 
else 

xinc  =  0; 
if  (ysteps  >1) 

yinc  =  (yhigh-ylow)  /  (ysteps- 1); 
else 

yinc  =  0; 
if  (asteps  >  1) 

ainc  =  (ahigh-alow)  /  (asteps- 1); 
else 

ainc  =  0; 

//  printf  ("xlow=%f  ylow=%f  xinc=%f,  yinc=%f\n",  xlow,  ylow,  xinc,  yinc); 

for  (i=0;  i<xsteps;  i-H-)  { 
xO  =  xlow  +  i*xinc; 
for(j=0;j<ysteps;j-H-)  { 
yO  =  ylow  +  j*yinc; 
for  (k=0;  k<asteps;  k++)  { 
aO  =  alow  +  k*ainc; 
sumerr  =  0.0; 
for  (m=0;  m<npts;  m-H-)  { 

if  (curvetype  =  PARABOLA) 

err  =  pd[m]  -  (y0+a0*(v[m]-x0)*(v[m]-x0)); 
else 

err  =  pd[m]  -  (y0+a0*cos((v[m]- 
x0)/STEPS_PER_REV*2.0*3. 1459)* 

cos((v[m]-x0)/STEPS_PER_REV*2.0*3.1459)); 
sumerr  +=  err*err; 

} 
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if  (sumerr  <  minerr)  { 
minerr  =  sumerr; 

*a  =  aO; 
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*y  =  yO; 

*x  =  xO; 

} 

} 

} 

} 

printf  ("Min  error  =  %M",  minerr); 


int  waveplate_setup  0 

{ 

il6RetVal; 

il6  IgnoreWaming; 

il6  status; 

//  Configure  port  0 

status  =  DIG_Prt_Config  (DEVICE  1,  portO,  MODE,  dir); 
RetVal=NIDAQErrorHandler(status,"DIG_Prt_Config  ", IgnoreWaming); 
if  (status  !=  0)  { 
return  (status); 

} 

//  Configure  port  1 

status  =  DIGPrtConfig  (DEVICEl,  portl,  MODE,  dir); 
RetVal=NIDAQErrorHandler(status,"DIG_Prt_Config  ",IgnoreWaming); 
if  (status  !=  0)  { 
return  (status); 

} 

return  (0); 

} 


int  photodetectorsetup  0 

{ 

il6  RetVal; 

il6  IgnoreWaming; 

il6  status; 

//configure  input  line  for  photodetector 

status=AI_Configure(DEVICE2,ChannelO,InputMode,InputRange,polarity, 

driveAIS); 

RetVal=NIDAQErrorHandler(status,"AI_Configure",IgnoreWaming); 
return  (status); 


void  rotate_polarizer  (int  value,  int  mode) 
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int  iresult; 
chars[100]; 
int  wait; 

if  (mode  =  ABS_MODE)  { 

iresult  =  SioPuts  (POL_PORT,  "IAB*V',  5); 

wait  =  (int)(fabs((float)value-(float)cur_pos)  /  FEEDRATE  *  1000  + 

250); 

cur_pos  =  value; 

} 

else  if  (mode  =  IN  MODE)  { 

iresult  =  SioPuts  (POL_PORT,  "IIN*V',  5); 

wait  =  (int)(fabs((float)value)  /  (float)FEEDRATE  *  1000  +  250); 

cur_pos  +=  value; 

} 

else  { 

printf  ("Mode  is  incorrect\n"); 
exit  (-1); 

} 

Sleep  (250); 

sprintf  (s,  "IXF%5dD%7d*V',  FEEDRATE,  value); 
iresult  =  SioPuts  (POL_PORT,  s,  18); 

//  printf  ("Current  polarizer  position:  %d\n",  cur_pos); 

Sleep  (wait); 


void  CCal3Dlg::set_wp_voltage  (float  volts) 

{ 

int  value; 

il6  pattemO,  patteml; 
il6  status; 
il6  RetVal; 
il6  IgnoreWaming; 

//  printf  ("Setting  wave  plate  voltage  to  %An",  volts); 

//  Convert  voltage  to  two  8-bit  values 
value  =  (int)(volts  /  voltage_res); 
if(value>  32767) 
value  =  32767; 

patteml  =  (value  /  256)  |  128; 
pattemO  =  value  %  256; 

//  Write  low-order  b3de  to  port  0 
status  =  DIGOutPort  (DEVICE  1,  portO,  pattemO); 
RetVal=NIDAQErrorHandler(status,"DIG_Out_Port", IgnoreWaming); 
if  (status  !=  0)  { 
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printf  ("Error:  status  %d  writing  to  port  0\n",  status); 
exit  (-1); 

} 

//  Write  high-order  byte  to  port  1 

status  =  DIG_C)ut_Port  (DEVICEl,  portl,  patteml); 

RetVal=NIDAQErrorHandler(status,"DIG_Out_Port",IgnoreWaming); 

if  (status  !=  0)  { 

printf  ("Error:  status  %d  writing  to  port  l\n",  status); 
exit  (-1); 

} 

Sleep  (500); 
m_cur_wp  =  volts; 

UpdateData(FALSE); 
update_status_scroll  (); 


int  read_photodetector  () 

{ 

double  Voltage,  VoltageSum; 

int  mean; 

il6  status; 

il6  RetVal; 

il6  IgnoreWaming; 

//read  photodetector  signal  multiple  times 
VoltageSiun=0; 

for  (int  j=0;  j<NREADS;  ]++)  { 

status=AI_VRead(DEVICE2,ChannelO,Gain,&Voltage); 
RetVal=NIDAQErrorHandler(status,"AI_VRead", IgnoreWaming); 
VoltageSiun=VoltageSum+Voltage; 

} 

//  Average  responses  and  convert  to  microvolts 
mean  =  (int)(VoltageSum  *  1000000  /  NREADS  +  0.5); 

return  (mean); 

} 


void  polarizer_setup  0 

{ 

int  CompBaudRate; 

BOOL  FatalError=FALSE; 

//initialization  of  com  port 
if(SioReset(POL_PORT,1024,512)<0) 
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SioError(SioReset(POL_PORT,1024,512),""); 

else  printf("COM%i  initialized  correctly'®", (POL_PORT+l));  //COMS  start 
at  'O',  thus  add  1  to  display  right  # 

//  Set  Computer  baud  rate  to  9600  (that's  its  default  rate) 
CompBaudRate=9600; 
if  (SioBaud(POL_PORT,CompBaudRate)<0) 
SioError(SioBaud(POL_PORT,CompBaudRate),""); 

else  printf("Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 

//first  clear  the  transmit  and  receive  buffers 
ClearBuffers(POL_PORT); 

//must  set  RTS  high  before  receiving  data  from  stage,  leave  it  high 
if  (SioDTR(POL_PORT,'S')<0)  SioError(SioDTR(POL_PORT,'S'),""); 
printf  ("DTR  set  high\n"); 

if  (SioRTS(POL_PORT,'S')<0)  SioError(SioRTS(POL_PORT,'S'),""); 
printf("RTS  set  high\n"); 

//set  flow  control  to  software  (xon,  xoff) 

if(SioFlow(POL_PORT,'N')<0)SioError(SioFlow(POL_PORT,'N'),""); 

Sleep(lOOO); 

} 

void  polfiltersetupO 

int  CompBaudRate; 

BOOL  FatalError=FALSE; 
int  iresult; 

//initialization  of  com  port 
if(SioReset(POL_FILTER_PORT,1024,512)<0) 

SioError(SioReset(POL_FILTER_PORT,1024,512),""); 
else  printf("COM%i  initialized  correctly\n",(POL_FILTER_PORT+l)); 
//COMS  start  at  'O',  thus  add  1  to  display  right  # 

//  Set  Computer  baud  rate  to  9600 
CompBaudRate=9600; 

if  (SioBaud(POL_FILTER_PORT,CompBaudRate)<0) 

SioError(SioBaud(POL_FILTER_PORT,CompBaudRate),""); 
else  printf("Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 

//  Set  commimications  parameters  the  same  as  stepper  driver  for  now 
(9600,8,1, none) ... 

if  (SioParms(POL_FILTER_PORT,NoParity,OneStopBit,WordLength8)<0) 

SioError(SioPamis(POL_FILTER_PORT,NoParity,OneStopBit,WordLength 

8),""); 

else  printf("COM%i  parameters  changed\n",(POL_FILTER_PORT+l)); 
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//first  clear  the  transmit  and  receive  buffers 
ClearBufrers(POL_FILTER_PORT); 

//must  set  RTS  high  before  receiving  data  firom  stage,  leave  it  high 

SioDTR(POL_FILTER_PORT,'S'); 

if  ((iresult  =  SioRTS(POL_FILTER_PORT,'S'))<0) 

SioError(SioRTS(POL_FILTER_PORT,'S’),"");//was'R' 
printf  ("RTS  =  %d\n",  iresult); 


//set  flow  control  to  software  (xon,  xoff) 
if  (SioFlow(POL_FILTER_PORT,’S')<0) 

SioError(SioFlow(POL_FILTER_PORT,'S'),""); 

Sleep(lOOO); 

//SEND  THE  ATTENTION  COMMAND 

SioPuts(POL_FILTER_PORT,"  ",1); 

Sleep  (1000); 

SioPuts  (POL_FILTER_PORT,  'V',1); 

Sleep  (1000); 

//enter  setup  commands  for  stepper 

iresult  =  SioPuts  (POL_FILTER_PORT,  "Y  5  25V', 7); 

Sleep  (1000); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "H  OV',4);  //set  steps  to  constant 
step  size 

Sleep  (1000); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "D  8V',4);  //set  step  resolution  to 
D8  1/256  step 
Sleep  (1000); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "e  400V',6);//set  encoder  lines/rev 
to  400 

Sleep  (1000); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "I  IOOV',6);  //set  initial  velocity  to 

100 

Sleep  (1000); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "V  350V' ,6);  //set  slew  velocity  to 
450 

Sleep  (1000); 

iresiilt  =  SioPuts  (POL_FILTER_PORT,  "K  50  50V',8);  //set  ramp 
acceleration  50/50 
Sleep  (1000); 

//  find_home_filter  (); 

} 

void  find_home_filter  0 

{ 

int  iresult; 
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char  s[200]; 

int  move_mode,  nchars; 
char  mess[200]; 

iresult  =  SioPuts  (POL_FILTER_PORT,  "F  350  1 V',8);  //  find  home 
Sleep  (500); 

nchars  =  SioGets  (POL_FILTER_PORT,  s,  200); 
sprintf  (mess,  "nchars=%d",  nchars); 

iresult  =  MessageBox  (NULL,  mess,  "Calibrate",  MB_OKCANCEL); 
if  (iresult  =  IDCANCEL) 
exit  (-1); 

Sleep  (500); 

move_mode  =  8; 

while  ((move_mode  &  8)  =  8)  { 

iresult=SioPuts  (POL_FILTER_PORT,  "^V,  2); 

Sleep  (500); 

nchars  =  SioGets  (POL_FILTER_PORT,  s,  100); 
s[nchars-l]  =  ^0'; 

sscanf  (&s[2],  "%d",  &move_mode); 

sprintf  (mess,  "move  status=%d",  move_mode); 
iresult  =  MessageBox  (NULL,  mess,  "Calibrate",  MB_OKCANCEL); 
if  (iresult  =  IDCANCEL) 
exit  (-1); 

} 

iresult  =  SioPuts  (POL_FILTER_PORT,  "0\r",  2);  //  reset  origin 
Sleep  (1000); 
rotate_pol_filter  (-360); 

iresult  =  SioPuts  (POL_FILTER_PORT,  "0\r",  2);  //  reset  origin 
Sleep  (1000); 


void  rotate_pol_filter  (int  pos) 

{ 

int  iresult; 
char  s[100]; 

int  move_mode,  nchars; 
int  newpos; 
char  mess[200]; 

nchars  =  SioGets  (POL_FILTER_PORT,  s,  100); 

Sleep  (500); 

newpos  =  -1; 

while  (newpos  !=  pos)  { 

sprintf  (s,  "R+%4d\r",  pos); 

iresult  =  SioPuts  (POL_FILTER_PORT,  s,  7); 

Sleep  (1000); 

nchars  =  SioGets  (POL_FILTER_PORT,  s,  100); 

move_mode  =  1; 

while  ((move_mode  %  2)  >  0)  { 
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iresult=SioPuts  (POL_FILTER_PORT,  2); 
Sleep  (500); 

nchars  =  SioGets  (POL  FILTER  PORT,  s,  100); 
s[ncliars-l]  =  '\0'; 

sscanf  (&s[2],  "%d",  &move_mode); 

} 

SioPuts  (POL_FILTER_PORT,  "zV,  2); 

Sleep  (500); 

nchars  =  SioGets  (POL  FILTER  PORT,  s,  100); 

s[nchars-l]  =  '\0'; 

sscanf  (&s[2],  "%d",  &newpos); 

} 

} 


void  polarizerreset  0 

{ 

int  iresult; 

iresult  =  SioPuts  (POL_PORT,  "\4",  1); 
Sleep  (1000); 

iresxdt  =  SioPuts  (POL_PORT,  "»01\r",  5); 
cur_pos  =  0; 

Sleep  (1000); 

} 


void  comclose  (int  CN) 

{ 

//Close  the  COM  port 
if(SioDone(CN)<0) 

SioError(SioDone(CN),""); 

else 

printf("COM%i  closed  successfully\n",(CN+l)); 

} 


int  Flip_Mirror(il6  UpOrDown) 

{ 

const  il6  DeviceNumber=2;//currently  the  pci  board  is  configured  by  nidaq  config  to  device  2 

const  il6  PCIPoi1r=0;  //all  E  series  hoards  use  port  0 

const  il6  FlipperLine=0;  //Digital  io  line  for  mirror  flipper 

const  il6  Input_or_Output^l;  //set  line  0  to  be  output 

const  il 6  GoHigh=l ;  //sets  logic  state  to  high 

const  il 6  GoLow=0;  //sets  logic  state  to  low 

const  il6  up=l; 

const  il6  down=0; 

il6  Status=0; 
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il6  RetVaI=0; 
il6  IgnoreWammg=0; 

//configure  digital  line  for  output .... 

Status=DIG_Line_Config(DeviceNumber,PCIPort,FlipperLine,Input_or_Out 

put); 

RetVal=NIDAQErrorHandler(Status,"DIG_Line_Config",IgnoreWaming); 

switch  (UpOrDown) 

{ 

case  up; 

{ 

Status=DIG_Out_Line(DeviceNuniber,PCIPort,FlipperLine,GoHigh); 
RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
printf  ("Mirror  up\n"); 

} 

break; 
case  down: 

{ 

Status=DIG_Out_Line(DeviceNumber,PCIPort,FlipperLine,GoHigh); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 

Sleep(50); 

printf  ("Mirror  down\n"); 

Status=DIG_Out_Line(DeviceNumber,PCIPort,FlipperLine,GoLow); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 

} 

break; 

default: 

{ 

printf("invalid  argument  for  flipper,  must  be  up  or  down\n"); 
retum(-l); 

} 

} 

Sleep  (1500); 
retum(O); 


int  fmd_vertical_pol  0 

{ 

const  il6  DeviceNumbei=2;//currently  the  pci  board  is  configured  by  nidaq  config  to  device  2 
const  il6  PCIPort=0;  //all  E  series  boards  use  port  0 
const  il6  Line=7;  //Digital  io  line  for  mirror  flipper 
const  il6  Input_or_Output=0;  //set  line  0  to  be  input 
il6  state; 

const  stepsize  =  200; 
int  i; 

il6  Status=0; 
il6  RetVal=0; 
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il6  IgnoreWaming=0; 


//configure  digital  line  for  input .... 

Status=DIG_Line_Config(DeviceNumber,PCIPort,Line,Input_or_Output); 

RetVal=NIDAQErrorHan^er(Status,"DIG_Line_Config",IgnoreWaming); 

Status=DIG_In_Line(DeviceNumber,PCIPort,Line,  &state); 
RetVal=NIDAQErrorHandler(Status,"DIG_In_Line",IgnoreWaming); 
if  (state  =  1)  return  (0); 
rotate_polarizer(-10*step_size,  ABS_MODE); 
polarizer_reset  (); 

for  (i=0;  i<STEPS_PER_REV;  i+=step_size)  { 

Status=DIG_In_Line(DeviceNumber,PCIPort,Line,  &state); 
RetVal=NIDAQErrorHandler(Status,"DIG_In_Line",IgnoreWaming); 
if  (state  =  1)  break; 
rotate_polarizer(i,  ABS_MODE); 

} 

Sleep  (1500); 
retum(O); 
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xyposition.cpp 

#include  "stdafx.h" 

#include  "cal3.h" 

#include  "calSDlg.h" 

struct  target  tgt[MAXTGTS]; 

inthotpix[14]={54435, 130676,112503,363408,338223,286037,719206,301221, 
541468,452421,771616,748032,709048,713117}; 

//  move_fiber  -  moves  the  fiber  to  dersired  location 

// 

void  CCal3Dlg::move  fiber  (unsigned  short  int  *buffer,  int  xguess,  int  yguess, 
int  xptime,  int  xmtime,  int  yptime,  int  ymtime, 
float  tolerance,  int  update  move  rates) 

{ 

float  xdiff,  ydiff; 
fiber jpos  *prev_pos; 
int  duration; 
int  iResult; 
float  pixelsmoved; 
struct  statsst  imagestats; 
int  nmoves; 
char  mess[200]; 

prevjpos  =  pos; 
xdiff  =  xguess  -  pos->x; 
ydiff  =  yguess  -  pos->y; 

sprintf  (mess,  "xguess=%d  yguess=%d  posx=%f  posy=%f  xdiff=%f 
ydiff=%fir\n", 

xguess,  yguess,  pos->x,  pos->y,  xdiff,  ydiff); 
mStatusEdit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

while  ((fabs(xdiff)  >  tolerance)  ||  (fabs(ydiff)  >  tolerance))  { 

//  Move  in  x  direction 
rnnoves  =  0; 

while  ((fabs(xdiff)  >  tolerance)  &&  (nmoves  <  max  moves))  { 
if  (xdiff  >  0.0)  { 

duration  =  (int)(xdiff  *  xptime); 
if  (duration  >  max_xduration) 
dmation  =  maxxduration; 

sprintf  (mess,  "xdiff  =  %f  duration  =  %d  \r\n",  xdiff,  duration); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 

update_status_scroll  (); 

iResult  =  Move  X  (Xplus,  dmation); 

} 
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else  if  (xdiff  <  0.0)  { 

duration  =  (int)((-xdif[)  *  xmtime); 
if  (diiration  >  max_xduration) 
duration  =  max_xduration; 

sprintf  (mess,  "xdiff  =  %f  duration  =  %d  \r\n",  xdiff,  duration); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 

update_status_scroll  (); 

iResult  =  Move_X  (Xminus,  duration); 

} 

iResult=pvAcquireFrame(BOARDNUM, buffer); 
if  (iResult!=0)  printfC'ERROR  pvacquireframe  returned 
%i\n",iResult); 

stats  (buffer,  &image_stats); 

pos  =  find  center  (buffer,  image_stats.mean*thresh); 
pixelsmoved  =  fabs(prev_pos->x  -  pos->x); 
sprintf  (mess,  "pixmoved  =  %fx\n",  pixels  moved); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
updatestatusscroll  (); 

xdiff  =  (float)xguess  -  pos->x; 
free(prev_pos); 
prev_pos  =  pos; 
nmoves-H-; 


//  Move  in  y  direction 


ydiff  =  yguess  -  pos->y; 
nmoves  =  0; 

while  ((fabs(ydiff)  >  tolerance)  &&  (nmoves  <  max_moves))  { 
if  (fabs(ydifE)  <  tolerance*2.0) 
ydiff  =ydiff/1.5; 
if  (ydiff  >  0.0)  { 

duration  =  (int)(ydiff  *  yptime); 
if  (duration  >  max_yduration) 
duration  =  max_yduration; 

sprintf  (mess,  "ydiff  =  %f  duration  =  %d  \r\n",  ydiff,  duration); 
mStatusEdit  +=  mess; 

UpdateData  (FALSE); 

update_status_scroll  (); 

iResult  =  Move_Y  (Yplus,  duration); 

} 

else  if  (ydiff  <  0.0)  { 

dmation  =  (int)((-ydiff)  *  ymtime); 
if  (duration  >  max_yduration) 
duration  =  max_yduration; 

sprintf  (mess,  "ydiff  =  %f  duration  =  %d  \r\n",  ydiff,  duration); 
m_Status_Edit  +=  mess; 
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UpdateData  (FALSE); 

update_status_scroll  (); 

iResult  =  Move_Y  (Y minus,  duration); 

} 

iResult=pvAcquireFrame(BOARDNUM, buffer); 
if  (iResult  !=0)  printf("ERROR  pvacquireframe  returned 
%i\n", iResult); 

stats  (buffer,  &image_stats); 

pos  =  find  center  (buffer,  image_stats.mean*thresh); 
pixelsmoved  =  fabs(prev_pos->y  -  pos->y); 
if  (update  move  rates  =  1  &&  pixels  moved  >  MIN  YMOVE)  { 
yptime  =  duration  /  pixelsmoved; 
ymtime  =  yptime; 

} 

sprintf  (mess,  "pixmoved=%f\r\n",  pixels_moved); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 
ydiff  =  (float)yguess  -  pos->y; 

free(prev_pos); 
prev_pos  =  pos; 
nmoves-H-; 

} 

xdiff  =  (float)xguess  -  pos->x; 
ydiff  =  (float)yguess  -  pos->y; 
xdiff  =  0.0; 

//  printf  ("xdiff  =  %f  ydiff  =  %f\n",  xdiff,  ydiff); 

} 

return; 

} 


void  CCal3Dlg::xmove_cal  (unsigned  short  int  *buffer,  int  *xptime,  int 
*xmtime) 

{ 

int  iResult; 
float  xdiff,  ydiff; 
fiber_pos  *prev_pos; 
struct  statsst  image_stats; 
char  mess[200]; 

//  Move  in  positive  x  direction 

// 

free  (pos); 

iResult  =  Move  X  (Xplus,  init_xduration/10); 
iResult=pvAcquireFrame(BOARDNUM,buffer); 
if  (iResult!=0)  printf("ERROR  pvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

prev_pos  =  find  center  (buffer,  image_stats.mean*thresh); 
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iResult  =  Move_X  (Xplus,  init  xduration); 
iResult?=pvAcquireFrame(BOARDNUM, buffer); 
if  (iResult!=0)  prmtf("ERROR  pvacquireffame  returned  iResult); 
stats  (buffer,  &image_stats); 

pos  =  fmd_center  (buffer,  image_stats.mean*thresh); 
xdiff  =  pos->x  -  prev_pos->x; 
ydiff  =  pos->y  -  prev_pos->y; 
if  (xdiff  <  0.0)  { 

MessageBox  ("Fiber  position  moved  in  wrong  direction  for  plus  X", 
"Calibrate",  MB_OK); 

OnExitButton  (); 

} 

*xptime  =  (int)(init_xduration/xdiff); 

sprintf(mess,  "xdiff  =  %5.2f  ydiff  =  %5.2f  plusxtime  =  %d\r\n",  xdiff, 
ydiff,  *xptime); 
m_Status_Edit  +=  mess; 
m_plusx  =  *xptime; 

UpdateData  (FALSE); 
update_status_scroll  Q; 

if  (m_plusx  <  M1N_XM0VE_TIME  ||  m_plusx  >  MAX_XMOVE_TIME)  { 
sprintf  (mess,  "Plus  X  move  time  =  %d",  m_plusx); 
iResult  =  MessageBox  (mess,  "Calibrate",  MB_OKCANCEL); 
if  (iResult  =  IDCANCEL) 

CtaExitButton  (); 

} 

//  Move  in  negative  x  direction 

// 

free(prev_pos); 

free(pos); 

iResult  =  MoveX  (Xminus,  init_xduration/10); 
iResult=pvAcquireFrame(BOARDNUM,buffer); 
if  (iResult!=0)  printf("ERROR  pvacquireframe  returned  %i\n",iRes\ilt); 
stats  (buffer,  &image_stats); 

prev_pos  =  jBndcenter  (buffer,  image_stats.mean*thresh); 
iResult  =  Move  X  (Xminus,  init  xduration); 
iResult=pvAcquireFrame(BOARDNUM,buffer); 
if  (iResult!=0)  printf("ERROR  pvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

pos  =  find_center  (buffer,  image_stats.mean*thresli); 
xdiff  =  pos->x  -  prev_pos->x; 
ydiff  =  pos->y  -  prev_pos->y; 
if  (xdiff  >  0.0)  { 

MessageBox  ("Fiber  position  moved  in  wrong  direction  for  minus  X", 
"Calibrate",  MB_OK); 

OnExitButton  (); 

} 

*xmtime  =  abs((int)(init_xduration/xdiff)); 

sprintf(mess,  "xdiff  =  %5.2f  ydiff  =  %5.2f  minusxtime  =  %d\r\n",  xdiff, 
ydiff,  *xmtime); 
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m_Status_Edit  +=  mess; 
m_mmusx  =  *xmtime; 

UpdateData  (FALSE); 
update_statxis_scroll  (); 

if  (m  minusx  <  MIN_XMOVE_TIME  ||  m_minusx  > 
MAX_XMOVE_TIME)  { 

sprintf  (mess,  "Minus  X  move  time  =  %d",  m  minusx); 
iResult  =  MessageBox  (mess,  "Calibrate",  MB_OKCj^CEL); 
if  (iResult  =  IDCANCEL) 

OnExitButton  (); 

} 

return; 


void  CCal3Dlg::ymove_cal  (unsigned  short  int  *buffer,  int  *yptime,  int 
*ymtime) 

{ 

int  iResult; 
float  xdiff,  ydiff; 
fiber_pos  *prev_pos; 
struct  statsst  image_stats; 
char  mess[200]; 

//  Move  in  positive  y  direction 
// 

free(pos); 

iResult  =  Move  Y  (Yplus,  iQit_yduration/10); 
iResult=pvAcquireFrame(BOARDNUM,buflfer); 
if  (iResult!=0)  printf("ERROR  pvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

prev_pos  =  find_center  (buffer,  image_stats.mean*thresh); 
iResult  =  Move  Y  (Yplus,  init_ydiu'ation); 
iResult=pvAcquireFrame(BOARDNUM,buffer); 
if  (iResult!=0)  printf("ERROR  pvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

pos  =  find_center  (buffer,  image_stats.mean*thresh); 
xdiff = pos->x  -  prev_pos->x; 
ydiff  =  pos->y  -  prev_pos->y; 
if  (ydiff  <  0.0)  { 

MessageBox  ("Fiber  position  moved  in  wrong  direction  for  plus  Y", 
"Calibrate",  MB_OK); 

OnExitButton  (); 

} 

*yptime  =  (int)(init_yduration/ydiff); 

sprintf(mess,  "xdiff  =  %5.2f  ydiff  =  %5.2f  plusytime  =  %d\r\n",  xdiff, 
ydiff,  *yptime); 
m_Status_Edit  +=  mess; 
m_plusy  =  *yptime; 

UpdateData  (FALSE); 
updatestatusscroll  (); 

if  (m_plusy  <  MIN_YMOVE_TIME  ||  m_plusy  >  MAX_YMOVE_TIME)  { 
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sprintf  (mess,  "Plus  Y  move  time  =  %d",  m_plusy); 
iResult  =  MessageBox  (mess,  "Calibrate",  MB_OKCANCEL); 
if  (iResult  =  IDCANCEL) 

OnExitButton  (); 

} 

//  Move  in  negative  y  direction 

// 

free(prev_pos); 

free(pos); 

iResult  =  MoveY  (Yminus,  init_yduration/10); 
iResult=pvAcquireFrame(BOARDNIJM,buffer); 
if  (iResult!=0)  printf("ERRORpvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

prev_pos  =  findcenter  (buffer,  image_stats.mean*thresh); 
iResult  =  Move_Y  (Yminus,  imt_yduration); 
iResult=pvAcquireFrame(BOARDNUM,bufifer); 
if  (iResult!=0)  printf("ERRORpvacquireframe  returned  %i\n",iResult); 
stats  (buffer,  &image_stats); 

pos  =  find  center  (buffer,  image_stats.mean*thTesh); 
xdiff  =  pos->x  -  prev_pos->x; 
ydiff  =  pos->y  -  prev_pos->y; 
if(ydiff>0.0)  { 

MessageBox  ("Fiber  position  moved  in  wrong  direction  for  minus  Y", 
"Calibrate",  MB_OK); 

OnExitButton  (); 

} 

*ymtime  =  abs((int)(init_yduration/ydiff)); 

sprintf(mess,  "xdiff  =  %5.2f  ydiff  =  %5.2f  minusytime  =  %d\r\n",  xdiff, 
ydiff,  *ymtime); 
m_Status_Edit  +=  mess; 
m_minusy  =  *ymtime; 

UpdateData  (FALSE); 
update_status_scroll  (); 
free(prev_pos); 

if  (m_minusy  <  MIN_YMOVE_TIME  ||  m_minusy  > 
MAX_YMOVE_TIME)  { 

sprintf  (mess,  "Minus  Y  move  time  =  %d",  m_minusy); 
iResult  =  MessageBox  (mess,  "Calibrate",  MB  OKCANCEL); 
if  (iResult  =  IDCANCEL) 

OnExitButton  (); 

} 

return; 

} 

// 

// 

//  This  procedure  finds  the  current  location  of  the  fiber. 

// 


Appendix  B  Code  Listing 


B47 


fiber_pos  *CCal3Dlg::fmd_center  (unsigned  short  *buffer,  float  threshold) 

{ 

inti,j,k; 
int  index,  maxpts; 
int  width; 
struct  point  *pnt; 
int  iresult,  check; 
int  ntgts,  val; 
fiber_pos  *pos; 
float  xw,  yw; 
char  mess[200]; 

//  Allocate  storage  for  position  structure 

// 

pos  =  (fiber_pos  *)malloc(sizeof(fiber_pos)); 

//  Find  all  objects  consisting  of  pixels  above  threshold 

// 

width  =  FRAMEWIDTH; 
ntgts  =  0; 

for  (i=MINYFOV-ROI_TOP;  i  <=  MAXYFOV-ROI_TOP;  i-H-)  { 
for  (j=MINXFOV-ROI_LEFT;  j<=MAXXFOV-ROI_LEFT;  j++)  { 
val  =  *(buffer+J+(i*width)); 
if  (val  >  threshold)  { 

//  Fill  in  point  structure 

pnt  =  (struct  point  *)malloc(sizeof(struct  point)); 
pnt->x  =  j; 
pnt->y  =  i; 
pnt->val  =  val; 

//  Determine  whether  this  point  is  adjacent  to  an  existing  object. 
//  If  so,  merge  it  with  the  object, 
iresult  =  0; 

for  (k=ntgts-l;  k  >=  0;  k— ) 

if  (iresult  =  compare(pnt,  &tgt[k]))  { 
merge  (pnt,  «&tgt[k]); 
break; 

} 

//  If  not  merged  with  an  existing  object,  create  a  new  one 
if  (iiresult)  { 

init  tgt  (pnt,  &tgt[ntgts]); 
ntgts-H-; 

} 

} 

} 

} 

//  Compare  all  objects  with  each  other  and  merge  any  that  are  contiguous 
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for  (i=0;  i<iitgts;  i-H-)  { 
if  (tgt[i].mean  >=  0)  { 
check  =1; 
while  (check)  { 
check  =  0; 

for  (j=i+l;  j<ntgts;  j-H-) 

if  (iresult  =  comp_tgts(&tgt[i],  &tgt[j]))  { 
mergejgts  (&tgt[i],  &tgt[j]); 
tgt[j].mean  = -1; 

fprintf  (stderr,  "merged  targets  %d  and  %d\n",  i,  j); 
check  =  1; 

} 

} 

} 

} 

//  Find  object  with  the  largest  number  of  points.  This  should  be  the 
//  fiber  image, 
if  (ntgts  =  0)  { 

MessageBox  ("No  fiber  image  detected",  "Calibrate",  MB_OK); 
OnExitButton  (); 

} 

maxpts  =  0; 

for  (i=0;  i<ntgts;  i-H-) 

if  (tgt[i].npts  >  maxpts)  { 
maxpts  =  tgt[i].npts; 
index  =  i; 

} 

//  Fill  position  structure 

pos->x  =  tgt[mdex].xc; 

pos->y  =  tgt[index].yc; 

pos->intensity  =  (int)(tgt[index].mean  -i-  0.5); 

pos->npts  =  tgt[index].npts; 

//  Add  ROI  offset  to  center  coordinates 

// 

pos->x  -i-=  ROI_LEFT; 
pos->y  -i-=  ROI_TOP; 
m_xpos  =  pos->x; 
m_ypos  =  pos->y; 

UpdateData  (FALSE); 
update_status_scroll  (); 

return  (pos); 


void  init_tgt  (struct  point  *pnt,  struct  target  *targ) 
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{ 

targ->xc  =  (float)pnt->x; 

targ->yc  =  (float)pnt->y; 

targ->xcw  =  (float)pnt->x  *  (float)pnt->x; 

targ->ycw  =  (float)pnt->y  *  (float)pnt->y; 

targ->minx  =  pnt->x; 

targ->maxx  =  pnt->x; 

targ->miny  =  pnt->y; 

targ->inaxy  =  pnt->y; 

targ->npts  =  1; 

targ->mean  =  (float)pnt->val; 

targ->p  =  pnt; 

pnt->nextp  =  NULL; 

} 


int  compare(stmct  point  *pnt,  struct  target  *targ) 

{ 

struct  point  *nxp; 

if  ((pnt->x  >=  (targ->minx-MAXD))  &&  (pnt->x  <=  (targ->maxx)+MAXD) 
&& 

(pnt->y  >=  (targ->miny-MAXD))  &&  (pnt->y  <=  (targ->maxy)+MAXD))  { 
nxp  =  targ->p; 
while  (nxp  !=  NULL)  { 

if  ((abs(nxp->x  -  pnt->x)  <=  MAXD)  &&  (abs(nxp->y  -  pnt->y)  <= 
MAXD)) 

return  (1); 
nxp  =  nxp->nex^; 

} 

} 

return  (0); 

} 


void  merge  (struct  point  *pnt,  struct  target  *targ) 

{ 

pnt->nextp  =  targ->p; 
targ->p  =  pnt; 

targ->xc  =  (targ->xc*targ->npts+pnt->x)  /  (targ->npts+l); 
targ->yc  =  (targ->yc*targ->npts+pnt->y)  /  (targ->npts+l); 
targ->xcw  +=  pnt->x  *  pnt->val; 
targ->ycw  +=  pnt->y  *  pnt->val; 
targ->mean  =  (targ->mean*targ->npts+pnt->val)  / 
(targ->npts+l); 
targ->npts-H-; 

if  (pnt->x  <  targ->minx)  targ->minx  =  pnt->x; 
if  (pnt->x  >  targ->maxx)  targ->maxx  =  pnt->x; 
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if  (pnt->y  <  targ->mmy)  targ->imny  =  pnt->y; 
if  (pnt->y  >  targ->maxy)  targ->maxy  =  pnt->y; 

} 


int  comp_tgts(struct  target  *targl,  struct  target  *targ2) 

{ 

struct  point  *nxpl,  *nxp2; 

if  (targ2->mean  =  -1) 
return  (0); 

if  ((targl->maxx  <  (targ2->ininx-MAXD))  ||  (targl->minx  >  (targ2- 
>maxx)+MAXD)  || 

(targl->niaxy  <  (targ2->miny-MAXD))  ||  (targl->miny  >  (targ2- 
>maxy)+MAXD)) 
return  (0); 


nxpl  =  targl->p; 
while  (nxpl  !=NULL)  { 
nxp2  =  targ2->p; 
while  (nxp2  !=NULL)  { 

if  ((abs(nxp2->x  -  nxpl->x)  <=  MAXD)  &&  (abs(nxp2->y  -  nxpl->y)  <= 
MAXD)) 

return  (1); 

nxp2  =  nxp2->nextp; 

} 

nxpl  =nxpl->nex^; 

} 

return  (0); 

} 


void  merge  tgts  (struct  target  *targl,  struct  target  *targ2) 

{ 

struct  point  *nxp; 


nxp  =  targl->p; 

while  (nxp->nextp  !=  NULL)  nxp  =  nxp->nextp; 
nxp->nextp  =  targ2->p; 

targl->xc  =  (targl->xc*targl->npts+targ2->xc*targ2->npts)  / 

(targl  ->npts+targ2->npts); 

targl->yc  =  (targl ->yc*targl->npts+targ2->yc*targ2->npts)  / 

(targl  ->npts+targ2->npts); 
targl ->xcw  +=  targ2->xcw; 
targl ->ycw  +=  targ2->ycw; 

targl->niean  =  (targl ->mean*targl->npts+targ2->mean*targ2->npts)  / 
(targ  1  ->npts+targ2->npts) ; 
targl->npts  +=  targ2->npts; 

if  (targ2->minx  <  targl->minx)  targl->minx  ==  targ2->minx; 
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if  (targ2->maxx  >  targl->maxx)  targl->maxx  =  targ2->maxx; 
if  (targ2->miny  <  targl->miny)  targl->miny  =  targ2->mmy; 
if  (targ2->maxy  >  targl->maxy)  targl->maxy  =  targ2->maxy; 

} 

// 

//  stats  -  calculates  stats  for  an  image 

// 

void  CCal3Dlg::stats  (unsigned  short  ^buffer,  struct  stats_st  *image_stats) 

{ 

int  k; 

float  BufferSum=0; 
float  avg; 

unsigned  short  ’"buff; 
int  imin,  imax; 

//  Set  hot  pixels  in  CCD  array  to  zero 

// 

for  (k=0;  k<14;  k-H-) 

’"(buffei4-hotpix[k])  =  0; 


imax=’"buffer; 
imin=’"buffer; 
buff  =  buffer; 

BufferSum  =  0; 

for  (k=0;k<(FRAME_WIDTH*FRAME_HEIGHT);k^^)  { 
BufferSum  +=  “"buff; 
if  (’"buff>imax)  imax=’"buff; 
if  ((’"buff<imin)  &&  (“"buff  >  0))  imin=’"buff; 
buff-H-; 

} 

avg  =  BufferSum/(FRAME_WIDTH’"FRAME_HEIGHT); 

image_stats->min  =  imin; 

image_stats->max  =  imax; 

image_stats->mean  =  avg; 

mimin  =  imin; 

mimax  =  imax; 

mimean  =  avg; 

UpdateData  (FALSE); 
updatestatusscroll  (); 


int  Move_Y(int  Direction,  int  nsteps) 

{ 

il6  Status=0; 
il6  RetVal=0; 
il6  IgnoreWaming=0; 
int  i; 
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//configure  digital  lines  1,2  for  output  as  direction  and  step  .... 
Status=DIG_Line_Config(YDEVICE,PCIPort,YDirectio^ine,Input_or_Out 
put); 

RetVal=NIDAQErrorHandler(Status,"DIG_Line_Config'',IgnoreWaming); 

Status=DIG_Line_Config(YDEVICE,PCIPort,YStepLine,Input_or_Ou^ut); 

RetVal=NIDAQErrorHan^er(Status,"DIG_Line_Config",IgnoreWaming); 

switch(  Direction ) 

{ 

case  Yplus: 

{ 

Status=DIG_C)ut_Line(YDEVICE,PCIPort,YDirectionLine, Yplus); 
RetVal=NIDAQErrorHandler(Status,"DIG_C)ut_Line",IgnoreWartung); 
printfC  ...  Moving  in  PLUS  Y  direction  for  %i  steps\n",nsteps); 
for  (i=0;  i<nsteps;  i-H-)  { 

Status=DIG_Out_Line(YDEVICE,PCIPort,YStepLine,GoHigh); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
Sleep  (10); 

Status=DIG_Out_Line(YDEVICE,PCIPort,YStepLine,GoLow); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
if  (i<nuni_accel_steps)  Sleep(int(num_accel_steps/(i+l))); 
if  ((i>num_accel_steps)  &&  (i>(nsteps-num_accel_steps))) 
Sleep(int(num_accel_steps/(nsteps-i+l))); 

} 

} 

break; 

case  Yminus: 

{ 

Status=DIG_Out_Line(YDEVICE,PCIPort,YDirectionLine, Yminus); 
RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWammg); 

prmtf("  ...  Moving  MINUS  Y  direction  for  %i  steps\n",nsteps); . 

for  (i=0;  i<nsteps;  i-H-)  { 

Status=DIG_Out_Line(YDEVICE,PCIPort,YStepLine,GoHigh); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
Sleep  (10); 

Status=DIG_Out_Line(YDEVICE,PCIPort,YStepLine,GoLow); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
if  (i<num_accel_steps)  Sleep(int(mun_accel_steps/(i-l-l))); 
if  ((i>num_accel_steps)  &&  (i>(nsteps-num_accel_steps))) 
Sleep(int(nmn_accel_steps/(nsteps-i-Hl))); 

} 

} 

break; 
default : 

{ 

printf("ERROR! ! !  invalid  direction  chosen\n"); 
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retum(-l); 

} 

} 

retum(O); 

} 

int  Move_X(mt  Direction,  int  nsteps) 

{ 

int  i; 

il6  Status=0; 

il6  RetVal=0; 

il6  IgnoreWaming;=0; 

//configure  digital  lines  3,4  for  output  as  direction  and  step  .... 
Status=DIG_Line_Config(XDEVICE,PCIPort,XDirectionLine,Input_or_Out 
put); 

RetVal=NIDAQErrorHandler(Status,"DIG_Line_Config",IgnoreWaming); 

Status=DIG_Line_Config(XDEVICE,PCIPort,XStepLine,Input_or_Output); 

RetVal=NIDAQErrorHandler(Status,"DIG_Line_Config",IgnoreWaming); 

switch(  Direction  ) 

{ 

case  Xplus: 

{ 

Status=DIG_C)ut_Line(XDEVICE,PCIPort,XDirectionLine,Xplus); 
RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 
printf("  ...  Moving  in  PLUS  X  direction  %i  steps\n",nsteps); 
for  (i=0;  i<nsteps;  i-H-)  { 

Status=DIG_Out_Line(XDEVICE,PCIPort,XStepLine,GoLow); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 

Status=DIG_Out_Lme(XDEVICE,PCIPort,XStepLine,GoHigh); 

RetVal=NIDAQErrorHandler(Status,"DIG_C)ut_Line",IgnoreWaming); 
if  (i<num_accel_steps)  Sleep(int(num_accel_steps/(i+l))); 
if  ((i>num_accel_steps)  &&  (i>(nsteps-num_accel_steps))) 
Sleep(int(num_accel_steps/(nsteps-i+l))); 

} 

} 

break; 

case  Xminus: 

{ 

Status=DIG_Out_Line(XDEVICE,PCIPort,XDirectionLine,Xminus); 
RetVal=NIDAQErrorHandler(Status,"DIG_C)ut_Line",IgnoreWaming); 
printfC  ...  Moving  in  MINUS  X  direction  %i  steps\n",nsteps); 
for  (i=0;  i<nsteps;  i-H-)  { 

Status=DIG_Out_Line(XDEVlCE,PCIPort,XStepLine,GoLow); 

RetVal=NIDAQErrorHandler(Status,"DIG_Out_Line",IgnoreWaming); 

Status=DIG_Out_Line(XDEVICE,PCIPort,XStepLine,GoHigh); 
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RetVal=NIDAQErrorHandler(Status,"DIG_Out_Lme",IgnoreWaming); 
if  (i<num_accel_steps)  Sleep(int(num_accel_steps/(i+l))); 
if  ((i>num_accel_steps)  &&  (i>(nsteps-niim_accel_steps))) 
Sleep(int(num_accel_steps/(nsteps-i+l))); 

} 

} 

break; 
default : 

{ 

printf("ERROR! ! !  invalid  direction  chosen\n"); 
retum(-l); 

} 

} 

retuin(O); 
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sioerror.c 


#include  "wsc.h" 

#include  "paint.h" 

void  cdecl  SioError(int  Code,  char  *Text) 
{static  char  Temp[80]; 

#ifdefWIN32 
DWORD  dwError; 
char  *Win32ErrMsg; 

#endif 

puts(Text); 

switch(Code) 

{case  WSC_NO_DATA: 
puts("No  Data"); 
break; 

case  WSC_RANGE; 
puts("Parameter  out  of  range"); 
break; 

case  WSC_ABORTED; 
puts("  Aborted"); 
break; 

case  WSC_EXPIRED: 
puts(" Shareware  execution  expired"); 
break; 

case  lEBADID; 
puts("  Invalid  COM  port\n"); 
break; 

case  lEOPEN: 

puts("  COM  port  akeady  open\n"); 
break; 

case  lENOPEN: 

puts("  Cannot  open  COM  port\n"); 
break; 

case  IE_MEMORY: 
puts("  Cannot  allocate  memory\n"); 
break; 

case  lEDEFAULT: 
puts("  Error  in  default  parameters\n"); 
break; 

case  IE_HARDWARE: 
puts("  COM  port  hardware  not  present\n"); 
break; 

case  IE_BYTESIZE: 
puts("  Unsupported  byte  size\n"); 
break; 

case  IE_BAUDRATE; 
puts("  Unsupported  baud  rate\n"); 
break; 


#ifdef  WIN32 
case  WSC_WIN32ERR: 
dwError  =  (DWORD)  SioWinErrorO; 

if(FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESS 
AGE_ALLOCATE_BUFFER|80 , 

NULL,  dwError, 

MAKELANGID(LANG_ENGLISH,SUBLANG_ENGLISH_US), 
(LPTSTR)  &Wm32ErrMsg,  0,  NULL) 

>0) 

{puts(Win32ErrMsg); 

} 

else 

{sprmtf(Temp,"  Wm32  Error\n"); 
puts(Temp); 

} 

break; 

#endif 

default: 

sprintf(Temp,"  Unknown  code  %d\n",Code); 

puts(Temp); 

break; 

} 

}  /*  end  SioError  */ 
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cal3.h 


//  cal3.h  :  main  header  file  for  the  CAL3  application 

// 

#if 

!defined(AFX_CAL3_H_84BAE265_E02C_llDl_8216_0000C0A97971_IN 

CLUDEDJ 

#define 

AFX_CAL3_H_84BAE265_E02C_llDl_8216_0000C0A97971_rNCLUDED 

#if_MSC_VER>=  1000 
#pragma  once 

#endif//_MSC_VER>=  1000 
#ifiidef_AFXWIN_H_ 

#erTor  include  'stdafic.h'  before  including  this  file  for  PCH 
#endif 

#include  "resource.h"  //  maiu  symbols 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

1 1  CCal3App: 

//  See  caB.cpp  for  the  implementation  of  this  class 

// 

class  CCaBApp  :  public  CWinApp 

{ 

public: 

CCaBAppO; 

//  Overrides 

//  ClassWizard  generated  virtual  fimction  overrides 

//{ {AFX_VIRTUAL(CCaBApp) 

public: 

virtual  BOOL  InitlnstanceQ; 

//}}AFX_VIRTUAL 

//  Implementation 

//{  {AFX_MSG(CCaBApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  functions  here. 

//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP0 

}; 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 
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//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  inmiediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_CAL3_H_84BAE265_E02C_llDl_8216_0000C0A97971_IN 

CLUDEDJ 
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cal3Dlg.h 


//  caBDlg.h  :  header  file 

// 

#if 

!defined(AFX_CAL3DLG_H_84BAE267_E02C_llDl_8216_0000C0A97971 

_INCLUDEDJ 

#define 

AFX_CAL3DLG_H_84BAE267_E02C_llDl_8216_0000COA97971_INCLU 

DED_ 

#if_MSC_VER>=  1000 
#pragma  once 

#endif //  _MSC_VER  >=  1000 

#include  <stdio.h> 

#include  <malloc.h> 

#include  <stdlib.h> 

#mclude  <math.h> 

#include  "camera.h" 

#include  "monochromator.h" 

#include  "param.h" 

#include  "pol_states.h" 

#include  "Sioerror.h" 

#include  "wsc.h" 

#include  "xyposition.h" 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

I  I  CCaBDlg  dialog 

class  CCaBDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CCaBDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

//{ {AFX_DATA(CCaBDlg) 

enum  {  IDD  =  IDD_CAL3_DIALOG  }; 

CComboBox  m_pol_con; 

CEdit  m_Status_Con; 

UINT  m_winc; 

UINT  mwstart; 

UINT  m_wsteps; 

UINT  mxstart; 

UINT  m_ystart; 

CString  m_pstate; 

UINT  mwave; 

UINT  mimax; 
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UINT  m_imean; 

UINT  m_iniin; 

UINT  m_minxisx; 

UINT  m_ininusy; 

UINT  m_plusx; 

UINT  m_plusy; 

CString  m_Status_Edit; 
float  m_xpos; 
float  m_ypos; 

CString  mjpol; 
float  m_iexp; 

CString  m  outfile; 

UINT  m_cur_exp; 

UINT  mtotexp; 
float  m_cur_wp; 
float  m_exp; 

//}}AFX_DATA 

//  User  defined  functions  and  data 
int  pstates; 

int  zero  (unsigned  short  *,  float,  int,  int); 
fiber_pos  *pos; 

OPENFILENAME  ofii3; 

char  out_name[500],  out_title[100]; 

void  update_status_scroll  (); 

float  set_exposure  (unsigned  short  *,  float); 

void  polarcal  0; 

double  circular_pol  (int); 

void  setwpvoltage  (float); 

void  xniove_cal  (unsigned  short  int  *,  int  *,  int  *); 

void  ymove  cal  (unsigned  short  int  *,  int  *,  int  *); 

void  move  fiber  (unsigned  short  int  *,  int,  int,  int,  int,  int,  int,  float,  int); 

void  stats  (unsigned  short  *,  struct  stats  st  *); 

fiber_pos  *fmd_center  (imsigned  short  *,  float); 

//  ClassWizard  generated  virtual  function  overrides 

//{  {AFX_VIRTUAL(CCal3Dlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV  support 
//}}AFX_VIRTUAL 

//  Implementation 
protected; 

fflCONm_hIcon; 

//  Generated  message  map  functions 
//{  {AFX_MSG(CCal3Dlg) 
virtual  BOOL  OnInitDialogO; 

afe_msg  void  OnSysCommand(UINT  nID,  LPARAM  IParam); 


Appendix  B  Code  Listing 


B61 


afe_msg  void  OnPaint(); 
ajBc_msg  HCURSOR  OnQueryDraglconQ; 
afe_msg  void  OnCalButtonQ; 
afemsg  void  OnExitButtonO; 
aficmsg  void  OnOnePolRadioQ; 
afe_msg  void  OnAllPolRadio(); 
afe_msg  void  OnOutfileBrowseButtonQ; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAP() 

}; 

//{  {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_CAL3DLG_H_84BAE267_E02C_llDl_8216_0000C0A97971 

_INCLUDEDJ 
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cainera.h 


extern  "C" 

{ 

#include  "pvapi.h" 

} 

#mclude  "pvapi.h" 

const  int  NOMESSAGES  =  0; 

const  int  SHORT_MESSAGES  =  1; 

const  int  VERBOSE_MESSAGES  =  2; 

const  unsigned  short  CCD  WIDTH  =  1040; 

const  unsigned  short  CCD  HEIGHT  =  1024; 

const  unsigned  short  BITS_PER_PIXEL  =16; 

const  unsigned  char  BOARDNUM  =0; 

const  unsigned  int  TIME_OUT  =  10000;//inilliseconds 

const  unsigned  short  HIGH_GAIN  =  0;  //PROM  page  of  high  gain  setting 

const  unsigned  short  LOW  GAIN  =  4;  //PROM  page  of  low  gain  setting 

const  unsigned  short  NUM_CHANNELS  =  1 ;  //number  of  channels  ( 1 ,2  or  4) 

const  unsigned  short  CCD_TEMP  =  285;  //CCD  temp  in  Kelvin 

const  imsigned  short  X  BINNING  =  1 ;  //Bin  this  many  pixels  in  X  direction 

const  unsigned  short  Y  BINNING  =  1 ;  //Bin  this  many  pixels  in  Y  direction 

const  imsigned  short  MASTER  CLOCK  =625;  //Clock  frequency  is  62.5  ns 

const  unsigned  short  DISKING_WAIT  =11;  //The  camera  converts  this  to  a 

time 

const  unsigned  short  PARALLEL_WAIT  =795;  //' . 

const  unsigned  short  AFTER_EXPO  =375;  // . 

const  unsigned  short  SERIAL_WAIT  =2;  //"  "  "  "  "  "" 

const  unsigned  short  SKIP_WAIT  =2;  //"  "  " 

const  unsigned  short  ROI_LEFT  =  15; ....  //usel5, 1038, 0,1023  for  full  display 
const  unsigned  short  ROI_RIGHT  =  1038; 
const  unsigned  short  ROI_TOP  =  0; 
const  unsigned  short  ROI  BOTTOM  =  1023; 

const  unsigned  short  FRAME  WIDTH  =  (ROI_RIGHT-ROI_LEFT+l); 
const  unsigned  short  FRAME_HEIGHT  =  (ROI_BOTTOM-ROI_TOP+l); 
const  int  MAX_INTENSITY  =  65535; 

//const  double  EXPOSURE  TIME  =  0.03;  //exposure  time  in  seconds 

const  int  MINXFOV  =  435; 

const  int  MAXXFOV  =  555; 

const  int  MINYFOV  =  456; 

const  int  MAXYFOV  =  574; 

int  camera  setup  (BOOL,  BOOL,  int,  double); 
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param.h 


const  int  xstart 

=  515; 

const  int  ystart 

=  530; 

const  int  xsteps 

=  1; 

const  int  ysteps 

=  1; 

const  int  xinc 

=  5; 

const  int  yinc 

=  5; 

const  int  wstart 

=  450; 

const  int  wine 

=  50; 

const  int  wsteps 

=  5; 

const  int  POL_STATES 

=  4; 

const  float  thresh 

=  1.5; 

const  int  init  wave 

=  650; 

const  float  intensity  thresh 

=  0.9; 
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pol_states.h 


#include  "nidaq.h" 

#include  "mdaqerr.h" 

#mclude  "nidaqex.h" 

#mclude  "wsc.h" 

const  il6  DEVICEl  =  1; 
const  il6  port0=0; 
const  il6portl=l; 
const  il6  port2=2; 
const  il6  MODE=0; 
const  il6  dir=l; 

const  float  voltage_res=0.00061 ; 

const  il  6  DEVICE2=2;  //device  number  for  XE50  board 

const  il6  Channel0=0; 

const  il6  InputMode=l;  //referenced  single  ended 

const  il6  InputRange=0; 

constil6polarity=0;  //bipolar  operation 

const  il6  driveAIS=l;  //drive  Alsense  to  ground 

const  il6  Gain=l;  //1, 2, 10, 100  valid  choices 

const  int  NREADS=1000; 

const  int  AVG_PTS=7; 

const  int  FEEDRATE=10000; 

const  int  IN_MODE=0; 

const  int  ABS_MODE=l; 

const  int  LOCKIN_PORT=4; 

const  int  POL_PORT=COM3; 

const  int  POL_FILTER_PORT=COM2; 

const  int  PARABOLA=0; 

const  int  COSINE=l; 

const  int  STEPS_PER_REV=202500; 

const  int  STEP_INC=2500; 

const  il6  up=l; 

const  il6  down=0; 

const  int  POL_FILTER_OFFSET=0; 
const  int  STEPS_PER_FILTER=320; 

double  circular_pol  (int); 

void  best_fit  (double,  double,  int,  double,  double,  int,  double,  double,  int, 
double  *,  double  *,  double  *,  int,  int); 
void  polarizerreset  (); 
void  com_close  (int); 
void  ClearBuffers  (int); 
void  polarizer_setup  0; 
void  pol_filter_setup  0; 
void  rotate_pol_filter  (int); 
void  find_home_filter  (); 
int  waveplate_setup  0; 
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int  photodetector_setup  (); 
void  rotatejpolarizer  (int,  int); 
void  set_wp_voltage  (float); 
int  read_photodetector  (); 
int  Flip_Mirror(il6); 
int  find_vertical_pol  Q; 
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xyposition.h 


#mclude  "nidaqex.h" 

#mclude  "nidaq.h" 

#mclude  "iiidaqerr.h''  //may  not  need  this 

#defme  MAXD  1 

#defme  MT^TGTS  100 

const  il6XDEVICE=2;  //nidaq  pci  board 

const  il  6  YDEVICE=2;  //nidaq  pci  board 

const  il  6  PCIPort=0;  //all  E  series  boards  use  port  0 

const  il6  XDirectionLine=3;  //stepper  motor  direction  input  for  X  movement 

const  il6  YDirectionLine=l;  //stepper  motor  direction  input . for  Y  movement 

const  il  6  XStepLine=4;  //stepper  motor  step  input  for  X  movement 

const  il6  YStepLine=2;  //stepper  motor  step  input  for  Y  movement 

const  il6  Input_or_Output=l;  //set  lines  0-3  to  be  output 

const  il  6  GoHigh=l ;  //sets  logic  state  to  high 

const  il6  GoLow=0;  //sets  logic  state  to  low 

const  il  6  Xplus=l ;  //increasing  X  standpoint  of  image 

const  il6  Xminus=0;  //decreasing  X  " 

const  il6  Yplus=l ;  //increasing  Y  standpoint  of  image 

const  il  6  Yminus=0;  //decreasing  Y  " 

const  float  loc_tolerance=0.5; 

const  int  max_moves=5; 

const  int  num_accel_steps=50;  //acceleration  parameter  for  stepper  motors 

const  int  init_xduration=5000;  //  in  steps 

const  int  init_yduration=500;  //  " 

const  int  max_xduration=10000;  //  " 

const  int  max_yduration=1000;  //  " 

const  int  xwidth=80; 

const  int  ywidth=80; 

const  int  MIN_XMOVE_TIME=300; 

const  int  MAX_XMOVE_TIME=1500; 

const  int  MIN_YMOVE_TIME=30; 

const  int  MAX_YMOVE_TIME=150; 

const  float  MIN_YMOVE=2.0; 

const  int  MAXY_POS=20; 

/* 

struct  move_time  { 

float  total_pix; 
int  total  time; 
int  time; 

}; 

*/ 

typedef  stmct  { 
int  npts; 
int  intensity; 
float  x; 
float  y; 
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}  fiber_pos; 


struct  point  { 
int  x; 
int  y; 
int  val; 

struct  point  *nextp; 

}; 


struct  target  { 
float  xc; 
float  yc; 
float  xcw; 
float  yew; 
int  minx; 
int  maxx; 
int  miny; 
int  maxy; 
int  npts; 
float  mean; 
struct  point  *p; 


struct  stats_st  { 
int  min; 
int  max; 
float  mean; 

}; 


int  Move_Y(int,  int); 
int  Move_X(int,  int); 

void  init  tgt  (struct  point  *,  struct  target  *); 
int  compare(struct  point  *,  struct  target  *); 
void  merge  (struct  point  *,  struct  target  *); 
int  comp_tgts(struct  target  *,  struct  target  *); 
void  merge  tgts  (struct  target  *,  struct  target  *); 


Acquirejmage 


Files:  acquire_image.cpp 

acqiiire_iinageDlg.cpp 

acq.cpp 

cameraxpp 

sercomm.cpp 

acqiiire_image.h 

acquire_imageDlg.li 

acq.h 

camera.h 

sercomm.h 

acquire_image.cpp 

//  acquire_image.cpp  :  Defines  the  class  behaviors  for  the  application. 

// 

#mclude  "stdafe.h" 

#include  "acquire_image.h" 

#include  "acquire_imageDlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#iindefTfflS_FILE 

static  char  TED[S_FILE[]  = _ FILE  ; 

#endif 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CAcquire_imageApp 

BEGIN_MESSAGE_MAP(CAcquire_imageApp,  CWinApp) 

//{  {AFX_MSG_MAP(CAcquire_imageApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 

//}}AFX_MSG 

ON_COMMAND(ID_HELP,  CWinApp:  lOnHelp) 
END_MESSAGE_MAPO 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^^ 

I  I  CAcqiiireimageApp  construction 

CAcquire_imageApp::CAcquire_imageApp() 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  InitInstance 
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IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

1 1  The  one  and  only  CAcquire_imageApp  object 

CAcquire_imageApp  theApp; 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CAcquireimageApp  initialization 

BOOL  CAcquire_imageApp::InitInstanceO 

{ 

AfsEnableControlContainerO ; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  should  remove  from  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef_AFXDLL 

Enable3dControls();  //  Call  this  when  using  MFC  in  a  shared  DLL 

#else 

Enable3dControlsStatic();//  Call  this  when  linking  to  MFC  statically 
#endif 

CAcquire_imageDlg  dig; 
m_pMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModal(); 
if  (nResponse  =  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  IDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  application's  message  pump, 
return  FALSE; 


B70 


Appendix  B  Code  Listing 


acqiiire_imageDlg.cpp 


//  acquire_imageDlg.cpp  :  implementation  file 

// 

#include  "stdafe.h" 

#include  "acqiiire_iniage.h" 

#mclude  "acquire_imageDlg.h" 

#ifdef_DEBUG 

#defme  new  DEBUGNEW 

#undefTHIS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAboutDlgO; 

//  Dialog  Data 

//{  {AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD_ABOUTBOX  }; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  ftmction  overrides 

//{  {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{  {AFX_MSG(CAboutDlg) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 


CAboutDlg:  :CAboutDlgO  :  CDialog(CAboutDlg::IDD) 

{ 

//{  {AFX_DATA_INIT(CAboutDlg) 
//}}AFX_DATA_INIT 


void  CAboutDlg:  :DoDataExchange(CDataExchange*  pDX) 
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{ 

CDialog:  :DoDataExchange(pDX); 

//{  {AFX_DATA_]V[AP(CAboutDlg) 

//}}AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{ {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAP() 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAcquireimageDlg  dialog 

CAcquire_imageDlg::CAcquire_imageDlg(CWnd*  pParent  /*=NULL*/) 

:  CDialog(CAcquire_imageDlg::IDD,  pParent) 

{ 

//{ {AFX_DATA_INIT(CAcquire_imageDlg) 

m_fiiame  =  _T(""); 

mmax  =  0; 

mmin  =  0; 

mmean  =  0; 

mexp  =  0.2f; 

mtemp  =  290; 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
m_hIcon  =  AfeGetApp()->LoadIcon(IDR_MAINFRAME); 

} 

void  CAcquire_imageDlg::DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

// { { AFX_DATA_MAP(CAcquire_unageDlg) 

DDX_Text(pDX,  IDC_FILE_EDIT,  m_fiiame); 

DDX_Text(pDX,  IDC_MAX_EDIT,  m_max); 

DDX_Text(pDX,  IDC_MIN_EDIT,  m_min); 

DDX_Text(pDX,  IDC_MEAN_EDIT3,  m_mean); 

DDX_Text(pDX,  IDC_EXP_BOX,  m  exp); 

DDX_Text(pDX,  IDC_TEMP_BOX,  mjemp); 

//}  }  AFX_DATA_MAP 

} 

BEGrN_MESSAGE_MAP(CAcquire_imageDlg,  CDialog) 

// { { AFX_MSG_MAP(C  Acquire_imageDlg) 
ON_WM_SYSCOMMAND() 

ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 

ON_BN_CLICKED(IDC_ACQUIRE_BUTTON,OnAcquireButton) 

ON_BN_CLICKED(IDC_EXIT_BUTTON,OnExitButton) 
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ON_BN_CLICKED(IDC_FILEBROWSE_BUTTON,OiiFilebrowseButton) 

//}}AFX_MSG_MAP 

END_MESSAGE_MAPO 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAcquire_imageDlg  message  handlers 

BOOL  CAcquire_imageDlg::OnInitDialogO 

{ 

CDialog:  :OnImtDialog(); 

//  Add  "About..."  menu  item  to  system  menu. 

//  IDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOUTBOX); 
ASSERT(IDM_ABOUTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if  (pSysMenu  !=NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 
if  (!strAboutMenu.IsEmptyO) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STR[NG,  IDM  ABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 
SetIcon(m_hIcon,  TRUE);  //  Set  big  icon 
SetIcon(m_hIcon,  FALSE);  //  Set  small  icon 

//  TODO:  Add  extra  initialization  here 

return  TRUE;  //  return  TRUE  unless  you  set  the  focus  to  a  control 

} 

void  CAcquire_imageDlg::OnSysCommand(UINT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 

CAboutDlg  dlgAbout; 
dlgAbout.DoModal(); 

} 

else 

{ 

CDialog::OnSysCommand(nID,  IParam); 
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} 


} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 
//  this  is  automatically  done  for  you  by  the  framework. 

void  CAcquire_imageDlg::C)nPaintO 

{ 

if  (IsIconicQ) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WM_ICONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcO,  0); 

//  Center  icon  in  client  rectangle 

int  cxJcon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect) ; 

int  X  =  (rect.WidthO  -  cxicon  +  1)  /  2; 

int  y  =  (rect.HeightQ  -  cylcon  +  1)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  m_hIcon); 

} 

else 

{ 

CDialog:  :OnPaint(); 

} 

} 

//  The  system  calls  this  to  obtain  the  cursor  to  display  while  the  user  drags 
//  the  minimized  window. 

HCURSORCAcquire_imageDlg::OnQueryDragIcon() 

{ 

return  (HCURSOR)  m_hIcon; 

} 

void  CAcquire_imageDlg:  :OnAcquireButton() 

{ 

int  iresult; 

BOOL  bUseHighGain=l ; 

BOOLbUseROI=l; 

int  nMessageMode=NO_MESSAGES; 

unsigned  short  header[13]; 

char  mess[200]; 

inti; 
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//  Get  parameters 

// 

UpdateData  (TRUE); 

strcpy  (fiiame,  (LPCTSTR)m_fiiame); 

//  Make  sure  that  the  Frame  width  defined  by  the  ROI  is  even. 

//  An  odd  value  will  result  in  an  image  with  line  to  line 
//  horizontal  shifts  due  to  a  bug  in  the  camera  software, 
if  ((FRAME_WIDTH  %  2)  !=  0)  { 

MessageBox  ("Frame  width  must  be  even.  Adjust  ROI  parameters.", 
"Acquire_image",  MB_OK); 

OnExitButton  (); 

} 

//  Set  up  camera 

iresiilt  =  camera_setup(bUseHighGain,  bUseROI,  nMessageMode,  m_exp, 
m_temp); 

if  (iresult!=0)  { 

sprintf(mess,  "Error:  camera_setup  returned  %i\n",iresult); 

MessageBox  (mess,  "Acquire_image",  MB_OK); 

OnExitButton  (); 

} 

//  Set  up  polarization  filters 

// 

pol_filter_setup(); 

//  Open  output  file 

// 

if(  (outfile  =  fopen(fiiame,"wb" ))  =  NULL )  { 

MessageBox  ("Error  Opening  Output  File",  "acquire_image",  MB_OK); 
return; 

} 

//  Write  header 

// 

header[0]  =  NFILTERS; 
header[l]  =  FRAME_WIDTH; 
header[2]  =  FRAME_HEIGHT; 
for  (i=0;  i<NFILTERS;  i++)  { 
header[i+3]  =  i; 

header[i+3+NFILTERS]  =  m_exp* 10000; 

} 

fwrite  (header,  2, 13,  outfile); 

//allocate  buffer  memory 

// 

buffer=  (unsigned  short  *)calloc((FRAME_HEIGHT?'FRAME_WIDTH), 
sizeof(unsigned  short)); 
if  (bufifei=NULL)  { 
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MessageBox("Can't  allocate  memory",  "acquire_image",  MB_OK); 
return; 

} 

//  Acquire  images 

// 

for  (i=0;  i<NFILTERS;  i-H-)  { 

rotate_pol_filter(i*STEPS_PER_FILTER+POL_FILTER_OFFSET); 

Sleep(2000); 

iresult  =  acquire  (buffer); 

} 

rotate_pol_filter(POL_FILTER_OFFSET); 

MessageBox  ("Done",  "Acquire_image",  MB_OK); 


void  CAcquire_imageDlg::OnExitButton() 

{ 

DestroyWindow  (); 
exit  (0); 


void  CAcquire_imageDlg::C)nOK() 

{ 

return; 

} 

void  CAcquire_imageDlg::C)nFilebrowseButton() 

{ 

int  iresult; 

ofii2.1StructSize  =  sizeof  (OPENFELENAME); 
ofii2.1ilnstance  =  NULL; 
ofii2.hwndOwner  =  NULL; 

ofe2.1pstrFilter  =  "CTISP  files  (*.ctp)\0*.ctp\0All  Files  (*.*)\0*.*\0\0"; 

ofii2.1pstrCustomFilter  =  NULL; 

ofii2.nMaxCustFilter  =  0; 

ofii2.nFilterIndex  =  1; 

ofii2.1pstrDefExt  =  "ctp"; 

ofii2.1CustData  =  NULL; 

ofii2.1pfiiHook  =  NULL; 

ofii2.1pTemplateName  =  NULL; 

ofii2.1pstrFile  =  fiiame; 

ofii2.nMaxFile  =  500; 

ofii2.1pstrFileTitle  =  ftitle; 

ofii2.nMaxFileTitle  =  99; 

ofii2.1pstrIiiitialDir  =  "WctispWdata"; 

ofii2.1pstrTitle  =  "Open  Output  File"; 

fiiame[0]  =  '\0’; 

iresult  =  GetOpenFileName  (&ofii2); 
if  (iresult)  { 
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UpdateData  (TRUE); 
m_fiaame  =  fiiame; 
UpdateData  (FALSE); 
UpdateWindow  (); 

} 
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acq.cpp 


//calibrate.cpp 

#include  <stdio.h> 

#iiiclude  <malloc.h> 

#include  <stdlib.h> 

#include  <math.h> 

#include  "stdafe.h" 

#include  "acq.h" 

#include  "acquire  image.h" 

#mclude  "acquire  imageDlg.h" 

//prototypes 

// 

void  stats  (unsigned  short  *,  struct  stats  st  *); 

int  CAcquire_imageDlg::acquire  (unsigned  short  *buffer) 

{ 

int  iResult; 

struct  stats  st  image_stats; 

//  Acquire  image 

// 

iResult=pvAcquireFrame(BOARDNUM, buffer); 
if  (iResult!=0)  { 

MessageBox  ("ERROR  acquiring  frame",  "acquire_image",  MB  OK); 
return  (-1); 

} 

//  Calculate  and  display  stats 

// 

stats  (buffer,  &image_stats); 
mmin  =  imagestats.min; 
m_max  =  imagestats.max; 
mmean  =  imagestats.mean  +  0.5; 

UpdateData  (FALSE); 

UpdateWindow  (); 

//  Write  image  to  file 

// 

fwrite  (buffer,  2,  FRAME_HEIGHT*FRAME_WIDTH,  outfile); . 

retum(O); 

} 

// 

//  stats  -  calculates  stats  for  an  image 
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// 

void  stats  (msigned  short  *buffer,  struct  stats_st  *image_stats) 

{ 

intk; 

float  BufferSum=0; 
float  avg; 

unsigned  short  *buff; 
int  imin,  imax; 

imax=*buffer; 
imin=*buffer; 
buff  =  buffer; 

BufferSum  =  0; 

for  (k=0;k<(FRAME_WIDTH*FRAME_HEIGHT);k++)  { 
BufferSum  +=  *buff; 
if  (*buff>iniax)  imax=*buff; 
if  ((*buff<iniin)  &&  (*buff  >  0))  imin=*buff; 
buff-H-; 

} 

avg  =  BufferSum/(FRAME_WIDTH*FRAME_HEIGHT); 
image_stats->niin  =  imin; 
image_stats->max  =  imax; 
image_stats->mean  =  avg; 

} 

void  CAcquire_imageDlg:  :pol_filter_setup() 

{ 

DWORD  CompBaudRate; 

BOOL  FatalError=FALSE; 
int  iresult; 

//scp  serial  comm  port  extra  type  defs 
char  CommPortName[6]; 

COMMTIMEOUTS  CommTimeOuts; 

DCB  deb; 

BOOL  fRetVal ; 

//scp  create  I/O  event  used  for  overlapped  reads/writes 
OL_Read_Pol.hEvent  =  CreateEvent(NULL,  //  no  seciuity 
TRUE,  //  explicit  reset  req 
FALSE,  //  initial  event  reset 
NULL);  //  no  name 
if  (OL_Read_Pol.hEvent  =  NULL) 

{ 

printf("CreateEvent  for  Read  Failed.\n"); 
return; 

} 

OL_Write_Pol.hEvent  =  CreateEvent(NULL,  //  no  security 
TRUE,  //  expbeit  reset  req 
FALSE,  //  initial  event  reset 
NULL);  //  no  name 
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if  (OL_Write_Pol.hEvent  =  NULL) 

{ 

CloseHandle(OL_Read_Pol.hEvent); 
printf("CreateEvent  for  Write  Failed.\n"); 
return; 

} 

//scp  initialize  offsets  for  overlapped  reads/writes 
OL_Read_Pol.Offset  =  0 ; 

OL_Read_Pol.OffsetHigh  =  0 ; 

OL_Write_Pol.Offset  =  0 ; 

OL_Write_Pol.OffsetHigli  =  0 ; 

//initialization  of  com  port 

//sio  if(SioReset(POL_FILTER_PORT,1024,512)<0) 

//sio  SioError(SioReset(POL_FILTER_PORT, 1024, 512),""); 

//scp  generate  the  COMM  port  name  (ie.  COMl,  COM2, ...,  COM99) 

//scp  COMl  is  1,  COM2  is  2, ...,  COM12  is  12,  and  are 
//scp  defined  in  SerComm.h.  Add  defines  there  for  COM##  upto  99 
wsprintf(CommPortName,  "COM%d",  POL  FILTER  PORT) ; 

//scp  open  COMM  device 
if  ((hPolFilterPort  = 

CreateFile(  CommPortName,  GENERIC  READ  |  GENERIC  WRITE, 

0,  //  exclusive  access 

NULL,  //  no  security  attrs 

OPEN_EXISTING, 

FILE_ATTRroUTE_NORMAL  | 

FILE_FLAG_OVERLAPPED,  //  overlapped  I/O 
NULL ))  =  (HANDLE)  -1 ) 

{ 

printf("CreateFile  for  Comm.  Port  Failed.\n"); 
return; 

} 

else 

{ 

//scp  get  any  early  notifications 

SetCommMask(hPol_Filter_Port,  EV  RXCHAR) ; 

//scp  setup  device  buffers 
//scp  went  with  4096  on  buffers  fi'om  tty  example 
//scp  instead  of  1024  and  512  used  in  sio  call 
SetupComm(hPol_Filter_Port,  4096,  4096) ; 

//scp  pmge  any  information  in  the  buffer 

PurgeComm(hPol_Filter_Port,  PURGE_TXABORT  |  PURGE_RXABORT 
PURGE_TXCLEAR  |  PURGE_RXCLEAR ) ; 

//scp  set  up  for  overlapped  I/O 

CommTimeOuts.ReadIntervalTimeout  =  OxFFFFFFFF ; 
CommTimeOuts.ReadTotalTimeoutMultiplier  =  0 ; 
CommTimeOuts.ReadTotalTimeoutConstant=  1000 ; 

//scp  CBR_9600  is  approximately  Ibyte/ms.  For  our  piuposes,  allow 
//  Set  Computer  baud  rate  to  9600 
CompBaudRate=9600; 
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//sq)  double  the  expected  time  per  character  for  a  fudge  factor. 

CommTimeOuts.WriteTotalTimeoutMultiplier  = 
2*CBR_9600/CompBaudRate; 

CommTimeOuts.WriteTotalTimeoutConstant  =  0 ; 
SetCommTimeouts(hPol_Filter_Port,  &CommTimeOuts ) ; 

//sio  priiitf("COM%i  initialized  correctly\n",(POL_FILTER_PORT+l)); 
//COMS  start  at  'O',  thus  add  1  to  display  right  # 

printf("COM%i  initialized  correctly\n",(POL_FILTER_PORT));  //COMl  is 
1,  COM2  is  2, ... 

} 

//scp  setup  serial  comm  port  via  data  control  block  (deb) 
dcb.DCBlength  =  sizeof(  DCB ) ; 

//scp  get  initial  state  from  comm  port 
GetCommState(hPol_Filter_Port,  &dcb ) ; 

//sio  if  (SioBaud(POL_FILTER_PORT,CompBaudRate)<0) 

//sio  SioError(SioBaud(POL_FILTER_PORT,CompBaudRate),""); 

//sio  else  printf("Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 
dcb.Bau(^te  =  CompBaudRate; 

//  Set  communications  parameters  the  same  as  stepper  driver  for  now 
(9600, 8,1, none) ... 

//sio  if 

(SioParms(POL_FILTER_PORT,NoParity,OneStopBit,WordLength8)<0) 

//sio 

SioError(SioParms(POL_FILTER_PORT,NoParity,OneStopBit,WordLength 

8),""); 

//sio  else  printf("COM%i  parameters  changed\n",(POL_FILTER_PORT+l )); 
dcb.ByteSize  =  8; 
dcb.Parity  =  NOPARITY; 
dcb.StopBits  =  ONESTOPBIT; 

//scp  setup  flow  control  to  software  (xon,  xoff) 

//scp  disable  DTRDSR  handshaking 
dcb.fOutxDsrFlow  =  0; 

//scp  enables  DTR  line 

dcb.fDtrControl  =  DTR_CONTROL_ENABLE; 

//scp  disable  RTSCTS  handshaking 
dcb.fOutxCtsFlow  =  0; 

//scp  enables  RTS  line 

dcb.fRtsControl  =  RTS_CONTROL_ENABLE; 

//scp  enable  XONXOFF  software  handshaking 
dcb.fInX  =  dcb.fOutX  =  1 ; 
dcb.XonChar  =  ASCII_XON; 
dcb.XoffChar  =  ASCII_XOFF; 
dcb.XonLim  =  100; 
dcb.XoffLim  =  100; 

//scp  other  various  settings 
dcb.fBinary  =  TRUE ; 
dcb.fParity  =  TRUE ; 

//scp  set  serial  comm  port  via  deb 
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fRetVal  =  SetCoimnState(hPol_FiIter_Port,  &dcb); 
printfC'Computer  Baud  rate  now  set  to  %i  baud\n",CompBaudRate); 
prmtf("COM%i  parameters  changed\n",POL_FILTER_PORT); 

//first  clear  the  transmit  and  receive  buffers 
//sio  ClearBufifers^OL_FILTER_PORT); 

//scp  already  done  right  after  buffer  definition 

//must  set  RTS  high  before  receiving  data  from  stage,  leave  it  high 
//sio  SioDTR(POL_FILTER_PORT,'S'); 

EscapeCommFunction(hPol_Filter_Port,  SETDTR); 

//sio  if  ((iresult  =  SioRTS(POL_FILTER_PORT,'S'))<0) 

//sio  SioError(SioRTS(POL_FILTER_PORT,'S'),"");//was  'R' 
iresult  =  int(EscapeComniFunction(hPol_Filter_Port,  SETRTS)); 

printf  ("RTS  =  %d\n",  iresult); 


//set  flow  control  to  software  (xon,  xoff) 

//sio  if  (SioFlow(POL_FILTER_PORT,’S')<0) 

//sio  SioError(SioFlow(POL_FILTER_PORT,'S'),""); 

//scp  already  done  in  deb 

Sleep(lOOO); 

//SEND  THE  ATTENTION  COMMAND 

//sio  SioPuts(POL_FILTER_PORT,"  ",1); 
WriteCommBlock(hPol_Filter_Port,"  ",  1  ,&OL_Write_Pol); 

Sleep  (1000); 

//sio  SioPuts  (POL_FILTER_PORT,  "\r",l); 
WriteCommBlock(hPol_Filter_Port,"\r",l,&OL_Write_Pol); 

Sleep  (1000); 

//enter  setup  commands  for  stepper 
//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "Y  5  25\r",7); 

iresult  =  int(WriteCommBlock  (hPol_Filter_Port,"Y  5 
25\r",7,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "H  0\r",4);  //set  steps  to 
constant  step  size 

iresult  =  int(WriteCommBlock  (hPol_Filter_Port,"H 
0\r",4,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "D  7\r",4);  //set  step  resolution 
to  D6  1/128  step 

iresult  =  int(WriteCommBlock  (hPol_Filter_Port,"D 
7\r",4,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "e  400\r",6);//set  encoder 
lines/rev  to  400 

iresult  =  int(WriteCommBlock  (hPol_Filter_Port,"e 
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400\r",6,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "1 125\r",6);  //set  initial  velocity 
to  125 

iresult  =  int(WriteComniBlock  (hPol_Filter_Port,"I 
125V',6,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "V  350V’, 6);  //set  slew  velocity 
to  350 

iresult  =  int(WriteConunBlock  (liPol_Filter_Port,"V 
350V',6,&OL_Write_Pol)); 

Sleep  (1000); 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "K  50  50V', 8);  //set  ramp 
acceleration  50/50 

iresult  =  int(WriteConmiBlock  (hPol_Filter_Port,"K  50 
50V',8,&OL_Write_Pol)); 

Sleep  (1000); 

//  find_home_filter  (); 

} 

void  CAcquire_imageDlg::find_liome_filter  () 

{ 

int  iresult; 
char  s[200]; 

int  move_mode,  nchars; 
char  mess[200]; 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "F  350  1 V',8);  //  find  home 
iresult  =  int(WriteCommBlock  (hPol_Filter_Port,"F  350 
1  V',8,&OL_Write_Pol)); 

Sleep  (500); 

//sio  nchars  =  SioGets  (POL  FILTER  PORT,  s,  200); 

nchars  =  int(ReadCommBlock  (hPol_Filter_Port,s,200,&OL_Read_Pol)); 

//  sprintf  (mess,  "nchars=%d",  nchars); 

//  iresult  =  MessageBox  (NULL,  mess,  "Calibrate",  MB  OKCANCEL); 

//  if  (iresult  =  IDCANCEL) 

//  exit  (-1); 

Sleep  (500); 

move_mode  =  8; 

while  ((move  mode  &  8)  =  8)  { 

//sio  iresult=SioPuts  (POL_FILTER_PORT,  "^V,  2); 

iresult  =  int(WriteComniBlock  (hPol_Filter_Port,"^V',2,&OL_Write_Pol)); 
Sleep  (500); 

//sio  nchars  =  SioGets  (POL_FILTER_PORT,  s,  100); 

nchars  =  int(ReadCommBlock  (hPol_Filter_Port,s,100,&OL_Read_Pol)); 
s[nchars-l]  =  '\0'; 

sscanf  (&s[2],  "%d",  &move_mode); 

//  sprintf  (mess,  "move  status=%d",  move_mode); 

//  iresult  =  MessageBox  (NULL,  mess,  "Calibrate",  MB  OKCANCEL); 

//  if  (iresult  =  IDCANCEL) 
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// 


exit  (-1); 


} 

//sio  iresult  =  SioPuts  (POL_FILTER_PORT,  "0\r",  2);  //  reset  origin 

iresult  =  int(WriteComniBlock  (hPol_Filter_Port,"0\r",2,&OL_Write_Pol)); 
Sleep  (1000); 
rotate_pol_filter  (-360); 

//sio  iresult  =  SioPuts  (POL  FILTER  PORT,  "0\r",  2);  //  reset  origin 

iresult  =  int(WriteConimBlock  (hPol_Filter_Port,"0\r",2,&OL_Write_Pol)); 
Sleep  (1000); 


void  CAcquire_imageDlg::rotate_pol_filter  (int  pos) 

{ 

int  iresult; 
char  s[100]; 

int  move  mode,  nchars; 
int  newpos; 
char  mess[200]; 

//sio  nchars  =  SioGets  (POL  FILTER  PORT,  s,  100); 

nchars  =  int(ReadCommBlock  (hPol_Filter_Port,s,100,&OL_Read_Pol)); 

Sleep  (500); 

newpos  =  -1; 

while  (newpos  !=  pos)  { 

sprintf  (s,  "R-i-%4d\r",  pos); 

//sio  iresult  =  SioPuts  (POL  FILTER  PORT,  s,  7); 

iresult  =  int(WriteComniBlock  (hPol_Filter_Port,s,7,&OL_Write_Pol)); 
Sleep  (1000); 

//sio  nchars  =  SioGets  (POL  FILTER  PORT,  s,  100); 

nchars  =  mt(ReadCommBlock  (hPol_Filter_Port,s,100,&OL_Read_Pol)); 

movemode  =  1 ; 

while  ((move  mode  %  2)  >  0)  { 

//sio  iresult=SioPuts  (POL_FILTER_PORT,  "^V,  2); 

iresult  =  int(WriteCommBlock 
(hPol_Filter_Port,"^\r",2,&OL_Write_Pol)); 

Sleep  (500); 

//sio  nchars  =  SioGets  (POL  FILTER  PORT,  s,  100); 

nchars  =  int(ReadCommBlock  (hPol_Filter_Port,s,100,&OL_Read_Pol)); 
s  [nchars- 1]  =  '\0'; 

sscanf  (&s[2],  "%d",  &move_mode); 

} 

//sio  SioPuts  (POL_FILTER_PORT,  "z\r",  2); 

iresult  =  int(WriteCommBlock 
(hPol_Filter_Port,"zV',2,&OL_Write_Pol)); 

Sleep  (500); 

//sio  nchars  =  SioGets  (POL_FILTER_PORT,  s,  100); 

nchars  =  int(ReadCommBlock  (hPol_Filter_Port,s,100,&OL_Read_Pol)); 
s[nchars-l]  =  '\0'; 

} 


B84 


Appendix  B  Code  Listing 


} 


//sio  ClearBuffers  function  is  not  needed. 

//sio  Buffers  are  purged  with  system  call. 

//sio  void  ClearBuffers(int  CN) 

//sio  { 

//sio  Sleep(25); 

//sio  if  (SioTxClear(CN)<0)  SioError(SioTxClear(CN),""); 
//sio  if  (SioRxClear(CN)<0)  SioError(SioRxClear(CN),""); 
//sio  Sleep(25); 

//sio  } 
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camera.cpp 


#mclude  "stdafx.h" 

#include  "camera.h" 

int  camera_setup  ( BOOL  bUseHighGain,  BOOL  bUseROI,  int  nMessageMode, 
double 

exp_time,  short  temp) 

{ 

int  nResult; 

//char  szLastError[64]; 

//  Handle  errors  here 
pvSetErrorMode(  PV_EM_SILENT ); 

//  Reset  the  board 

nResult  =  pvInitCapture(  BOARDNUM ); 
if  ( nResult  !=  SUCCESS ) 

{ 

printf("Error  resetting  board!\n" ); 
goto  fail; 

} 

//  Set  the  device  driver  size  expectations 

nResult  =  pvSetOptions(  BOARDNUM,  CCD_WIDTH,  CCD_HEIGHT, 
BITS_PER_PLXEL, 

TIME_OUT,  NUM_CHANNELS ); 
if  ( nResult  !=  SUCCESS ) 

{ 

printf("Error  setting  device  driver  information!\n"  ); 
goto  fail; 

} 

//  Set  the  DLL  size  expectations 

nResult  =  pvSetCCDSize(  BOARDNUM,  CCD_WIDTH,  CCD_HEIGHT ); 
if ( nResult  !=  SUCCESS) 

{ 

printf("Error  setting  image  size!\n" ); 
goto  fail; 

} 

//  Set  the  PROM  Page 

nResult  =  pvSetPROMPage(  BOARDNUM,  ( bUseHighGain  ?  HIGH_GAIN  : 
LOW_GAIN ) ); 
if  ( nResult  !=  SUCCESS ) 

{ 

printf("Error  setting  PROM  page!\n" ); 
goto  fail; 

} 
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//  Set  the  CCD  Temperature.  This  should  happen  right  after  Set  PROM  Page, 

//  because  setting  the  PROM  page  reset  the  temperature  to  a  default  value 
nResxilt  =  pvSetCCDTemperatureCalibrated(  BOARDNUM,  temp); 
if  (nResult!=  SUCCESS) 

{ 

printf("Error  setting  CCD  temperature!\n"  ); 
goto  fail; 

} 

//  Set  the  camera  timing  constants.  The  Master  Clock,  Serial  Wait,  and  Parallel 
Wait 

//  values  are  of  particular  interest  because  they  determine  the  accuracy  of 
//  the  exposure  time. 

//  If  you  call  pvSetWaitTimes,  PVAPI  will  perform  some  calculations  and  call 
this 

//  function  anyway.  It's  best  to  call  this  directly  if  you  know  the  values. 
nResult  =  pvSetWaitConstants(  BOARDNUM, 

MASTER_CLOCK, 

DISKING_WAIT, 

PARALLEL_WAIT, 

AFTER_EXPO, 

SERIAL_WAIT, 

SKIP_WAIT  ); 
if  ( nResult  !=  SUCCESS  ) 

{ 

printf("Error  setting  timing  constants!\n"  ); 
goto  fail; 

} 

//  Set  the  binning 

nResult  =  pvSetXBinning(  BOARDNUM,  XBINNING ); 
if  ( nResult  !=  SUCCESS) 

{ 

printf("Error  setting  serial  binnmg!\n"  ); 
goto  fail; 

} 

nResult  =  pvSetYBimiing(  BOARDNUM,  YBINNING ); 
if( nResult  !=  SUCCESS) 

{ 

printf("Error  setting  parallel  binning!\n"  ); 
goto  fail; 

} 

//  Set  the  ROI  or  lack  thereof 
if(bUseROI) 

{ 

nResult  =  pvEnableSingleROI(  BOARDNUM,  ROI_LEFT,  ROI_TOP, 
ROI_RIGHT, 
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ROI_BOTTOM ); 
if  ( nResult  !=  SUCCESS  ) 

{ 

prmtf("Error  setting  region-of-interest!\n" ); 
goto  fail; 

} 

} 

else 

{ 

nResult  =  pvDisableROI(  BOARDNUM ); 
if  ( nResult  !=  SUCCESS  ) 

{ 

printf("Error  disabling  region-of-interest!\n" ); 
goto  fail; 

} 

} 

//  Set  the  exposure  time 

nResult  =  pvSetExposureMode(  BOARDNUM,  PV_XM_INTERNAL, 
exptime); 

if  (  nResult  !=  SUCCESS  ) 

{ 

printfC'Error  setting  exposure  mode!\n"  ); 
goto  fail; 

} 

return  SUCCESS; 
fail: 

if  ( nMessageMode  !=  NO  MESSAGES  ) 

{ 

if  ( nMessageMode  =  VERBOSE  MESSAGES  ) 

{ 

//  See  if  the  last  return  code  tells  us  more 
switch  ( nResult ) 

{ 

case  ERRORNODRTVER: 
printf("The  VxD  could  not  be  loaded.\n"  ); 
break; 

case  ERROR_SERIAL_INPUT_LINK_BAD: 
printf("The  input  link  is  not  connected.\n" ); 
break; 

case  ERROR_SERIAL_LINK_BAD: 
printf("\n\nThe  output  serial  link  is  not  connected."  ); 
break; 

case  ERROR_SERIAL_NO_RESPONSE: 
printf("\n\nThe  camera  did  not  respond  to  the  serial  command."  ); 
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break; 

case  ERROR_SERIAL_BAD_RESPONSE: 
printf("\n\nAii  unexpected  serial  response  was  received." ); 
break; 

case  ERROR_SERIAL_WRITE_ERROR: 
printf("\n\nAn  error  occurred  while  writing  to  the  serial  port."  ); 
break; 

case  ERROR_SERIAL_READ_ERROR; 

printf(  "\n\nAn  error  occurred  while  reading  from  the  serial  port."  ); 
break; 

case  ERROR_SERIAL_CANT_OPEN_PORT: 
printf(  "\n\nAn  error  occurred  while  opening  the  serial  port."  ); 
break; 

case  ERROR_SERIAL_PORT_INIT_ERROR: 
printf(  "\n\nAn  error  occurred  while  initializing  the  serial  port."  ); 
break; 

default: 

break; 

} 

} 


} 

return  nResult; 

} 
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sercomm.cpp 


#include  "stdafx.h" 
#include  "serconnn.h" 


//scp  begin  inserted  routines 


//■ 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

// 

//■ 


int  NEAR  ReadComniBlock(HANDLE  hSer  Comm  Port,  LPSTR  IpszBlock, 
int  nMaxLength,  LPOVERLAPPED  IpOL  Read) 


Description: 

Reads  a  block  from  the  COM  port  and  stuffs  it  into 

the  provided  buffer. 

Parameters: 

HWNDhWnd 
handle  to  TTY  window 

LPSTR  IpszBlock 
block  used  for  storage 

int  nMaxLength 
max  length  of  block  to  read 

LPOVERLAPPED  lpOL_Read 
pointer  to  structure  needed  for  overlapped  I/O 

Win-32  Porting  Issues: 

-  ReadCommO  has  been  replaced  by  ReadFile()  in  Win-32. 

-  Overlapped  I/O  has  been  implemented. 


int  NEAR  ReadCommBlock(HANDLE  hSer  Comm  Port,  LPSTR  IpszBlock, 
int  nMaxLength,  LPOVERLAPPED  IpOL  Read) 


BOOL  fReadStat ; 
COMSTAT  ComStat; 
DWORD  dwErrorFlags; 
DWORD  dwLength; 
DWORD  dwError; 


char  szError[  10  ] ; 


if  (NULL  =  hSer  Comm  Port) 
retum(FALSE); 

//  only  try  to  read  number  of  bytes  in  queue 
ClearConimError(hSer_Conim_Port,  &dwErrorFlags,  &ComStat); 
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dwLength  =  mm((DWORD)nMaxLength,  ComStat.cbInQue); 

if  (dwLength  >  0) 

{ 

fReadStat  =  ReadFile(hSer_Comm_Port,  IpszBlock, 
dwLength,  &dwLength,  lpOL_Read); 

if  (IfiReadStat) 

{ 

if  (GetLastErrorO  =  ERRORJO_PENDING) 

{ 

OutputDebugString("\n\rIO  Pending"); 

//  We  have  to  wait  for  read  to  complete. 

//  This  function  will  timeout  according  to  the 
//  CommTimeOuts.ReadTotalTimeoutConstant  variable 
//  Every  time  it  times  out,  check  for  port  errors 
while( !  GetOverlappedResult(hSer_Comm_Port, 

IpOL  Read,  &dwLength,  TRUE)) 

{ 

dwError  =  GetLastErrorO; 

if(dwError  =  ERRORJO_INCOMPLETE) 

//  normal  result  if  not  finished 
continue; 
else 
{ 

//  an  error  occurred,  try  to  recover 
wsprmtf(szError,  "<CE-%u>",  dwError); 
Ou^utDebugString(szError); 

ClearCommError(hSer_Comm_Port,  &dwErrorFlags,  &ComStat); 
if  (dwErrorFlags  >  0) 

{ 

wsprmtf(szError,  "<CE-%u>",  dwErrorFlags); 
OutputDebugStrmg(szError); 

} 

break; 

} 


} 

} 

else 

{ 

//  some  other  error  occurred 
dwLength  =  0 ; 

ClearCommError(hSer_Comm_Port,  &dwErrorFlags,  &ComStat); 
if  (dwErrorFlags  >  0) 

{ 

wsprintf(szError,  "<CE-%u>",  dwErrorFlags); 
OutputDebugStrmg(szError); 

} 

} 
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} 

} 

retum(dwLength); 

}  //  end  of  ReadConunBlockO 

// - 

//  BOOL  NEAR  WriteCommBlock(HANDLE  hSer  Comm  Port,  LPSTR 
IpByte, 

//  DWORD  dwBytesToWrite,  LPOVERLAPPED 

lpOL_Write) 

// 

//  Description: 

//  Writes  a  block  of  data  to  the  Serial  Comm.  Port  specified. 

// 

//  Parameters: 

//  HANDLE  hSer_Comm_Port 
//  handle  to  serical  comm,  port 

// 

//  LPSTR  IpByte 

//  pointer  to  data  to  write  to  port 

// 

//  DWORD  dwBytesToWrite 
//  number  of  bytes  to  write 

// 

//  LPOVERLAPPED  lpOL_Write 
//  pointer  to  structure  needed  for  overlapped  I/O 

// 

//  Wm-32  Porting  Issues: 

//  -  WriteCommQ  has  been  replaced  by  WriteFileQ  in  Win-32. 

//  -  Overlapped  I/O  has  been  implemented. 

// 

// - 

BOOL  NEAR  WriteConimBlock(HANDLE  hSer_Comm_Port,  LPSTR  IpByte, 
DWORD  dwBytesToWrite,  LPOVERLAPPED 

lpOL_Write) 

{ 


BOOL  fWriteStat ; 
DWORD  dwBytesWritten ; 
DWORD  dwErrorFlags; 
DWORD  dwError; 
DWORD  dwBytesSent=0; 
COMSTAT  ComStat; 
char  szError[  128  ] ; 


if  (NULL  =  hSer_Comm_Port) 
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retum(FALSE); 

fWriteStat  =  WriteFile(hSer_Conim_Port,  IpByte,  dwBytesToWrite, 
&dwBytes Written,  lpOL_Write) ; 

//  Note  that  normally  the  code  will  not  execute  the  following 
//  because  the  driver  caches  write  operations.  Small  I/O  requests 
//  (up  to  several  thousand  bytes)  will  normally  be  accepted 
//  immediately  and  WriteFile  will  return  true  even  though  an 
//  overlapped  operation  was  specified 

if  (IfWriteStat) 

{ 

if(GetLastErrorO  =  ERROR_IO_PENDING) 

{ 

//  We  should  wait  for  the  completion  of  the  wnte  operation 
//  so  we  know  if  it  worked  or  not 

//  This  is  only  one  way  to  do  this.  It  might  be  beneficial  to 
//  place  the  write  operation  in  a  separate  thread 
//  so  that  blocking  on  completion  will  not  negatively 
//  affect  the  responsiveness  of  the  UI 

//  If  the  write  takes  too  long  to  complete,  this 
//  function  will  timeout  according  to  the 
//  CommTimeOuts.WriteTotalTimeoutMultiplier  variable. 

//  This  code  logs  the  timeout  but  does  not  retry 
//  the  write. 

while(!GetOverlappedResult(hSer_Comm_Port, 
lpOL_Write,  &dwBytesWritten,  TRUE)) 

{ 

dwError  =  GetLastErrorQ; 

if(dwError  =  ERROR_IO_INCO]VIPLETE) 

{ 

//  normal  result  if  not  finished 
dwBytesSent  +=  dwBytes  Written; 
continue; 

} 

else 

{ 

//  an  error  occurred,  try  to  recover 
wsprintf(  szError,  "<CE-%u>",  dwError); 
OutputDebugString(szError); 

ClearCommError(hSer_Comm_Port,  &dwErrorFlags,  &ComStat); 
if  (dwErrorFlags  >  0) 

{ 

wsprintf(szError,  "<CE-%u>",  dwErrorFlags); 
OutputDebugString(szError); 

} 
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break; 

} 

} 

dwBytesSent  +=  dwBytesWritten; 

if(  dwBytesSent  !=  dwBytesToWrite  ) 

wsprmtf(szError,"\nProbable  Write  Timeout;  Total  of  %ld  bytes  sent", 
dwBytesSent); 
else 

wsprintf(szError,"\n%ld  bytes  written",  dwBytesSent); 
OutputDebugString(szError) ; 


} 

else 

{ 

//  some  other  error  occurred 

ClearCommError(hSer_Comm_Port,  &dwErrorFlags,  &ComStat); 
if  (dwErrorFlags  >  0) 

{ 

wsprintf(szError,  "<CE-%u>",  dwErrorFlags); 
OutputDebugString(szError) ; 

} 

retum(FALSE); 

} 

} 

retum(TRUE); 

}  //  end  of  WriteCommBlockO 
//scp  end  inserted  routines 
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acquire_image.h 


IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I  I  CAcquire_imageApp: 

//  See  acquire_image.cpp  for  the  implementation  of  this  class 

// 

class  CAcquire_imageApp  :  public  CWinApp 

{ 

public: 

CAcquire_imageApp(); 

//  Overrides 

//  ClassWizard  generated  virtual  function  overrides 
//{  {AFX_VIRTUAL(CAcquire_imageApp) 
public: 

virtual  BOOL  Initlnstance(); 

//}}AFX_VIRTUAL 

//  Implementation 

//{  {AFX_MSG(CAcquire_imageApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  functions  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 


iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii^ 

//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_ACQUIRE_IMAGE_H_ECCEE624_AEE2_llDl_81EB_0000 
C0A9797  l_rNCLUDED  J 
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acquire_imageDlg.h 


//  acquire_imageDlg.h  :  header  file 

// 

#if 

!defmed(AFX_ACQUIRE_IMAGEDLG_H_ECCEE626_AEE2_llDl_81EB_ 

0000C0A9797 1_INCLUDED J 

#define 

AFX_ACQUIRE_IMAGEDLG_H_ECCEE626_AEE2_11D1_81EB_0000C0A 

97971_INCLUDED_ 

#if_MSC_VER>=1000 
#pragma  once 

#endif //  _MSC_VER  >=  1000 

#include  "caniera.h" 

#include  "pol  states.h" 

//sio  #include  "Sioerror.h" 

//sio  #include  "Wsc.h" 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAcquire_imageDlg  dialog 

class  CAcquire  imageDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CAcquire_imageDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

// { { AFX_DATA(CAcquire_iniageDlg) 

enum  {  IDD  =  IDD_ACQUIRE_IMAGE_DIALOG  }; 

CString  m  fiiame; 
int  mmax; 
int  minin; 
int  mmean; 
float  m  exp; 
short  m  temp; 

//}}AFX_DATA 

//  global  stuff 

OPENFILENAME  ofii2; 
char  fiiame[500],  ftitle[100]; 

FILE  *outfile; 
imsigned  short  *bufifer; 

//scp  serial  comm  port  extra  type  defs 
HANDLE  hPol_Filter_Port; 


B96 


Appendix  B  Code  Listing 


OVERLAPPED  OL_Read_Pol,OL_Write_Pol; 

int  acquire  (unsigned  short  *); 
voidOnOKO; 

//scp  serial  comm  port  prototypes  moved  here  for  Acquire_imageDlg  Class 
void  pol_filter_setupO; 
void  rotate_pol_filter  (int); 
void  fmd_home_filter  0; 

//  ClassWizard  generated  virtual  function  overrides 
//  {  { AFX_VIRTUAL(CAcquire_imageDlg) 
protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV  support 
//}}AFX_VIRTUAL 

//  Implementation 
protected: 

EICON  m_hIcon; 

//  Generated  message  map  functions 
//{ {AFX_MSG(CAcquire_imageDlg) 
virtual  BOOL  OnInitDialogO; 

afemsg  void  OnSysCommand(UlNT  nID,  LPARAM  IParam); 

afe_msg  void  OnPaint(); 

aficmsg  HCURSOR  CtoQueryDraglconQ; 

afe  msg  void  OnAcquireButtonQ; 

afe  msg  void  OnExitButton(); 

afe  msg  void  OnFilebrowseButtonO; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_ACQUIRE_IMAGEDLG_H_ECCEE626_AEE2_llDl_81EB_ 

0000C0A97971_INCLUDEDJ 
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acq.h 

truct  stats_st  { 
int  min; 
int  max; 
float  mean; 

}; 
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camera.h 


const  unsigned  short  CCD_HEIGHT  =  1024; 

const  unsigned  short  BITS_PER_PIXEL  =16; 

const  imsigned  char  BOARDNUM  =0; 

const  unsigned  int  TIME  OUT  =  10000;//milliseconds 

const  unsigned  short  HIGH_GAIN  =  0;  //PROM  page  of  high  gain  setting 

const  unsigned  short  LOW  GAIN  =  4;  //PROM  page  of  low  gain  setting 

const  unsigned  short  NUM_CBANNELS  =  1 ;  //number  of  channels  (1 ,2  or  4) 

const  unsigned  short  CCD_TEMP  =290;  //CCD  temp  in  Kelvin 

const  imsigned  short  X  BINNING  =  1 ;  //Bin  this  many  pixels  in  X  direction 

const  unsigned  short  Y  BINNING  =  1 ;  //Bin  this  many  pixels  in  Y  direction 

const  unsigned  short  MASTER  CLOCK  =625;  //Clock  frequency  is  62.5  ns 

const  unsigned  short  DISKING_WAIT  =11;  //The  camera  converts  this  to  a 

time 

const  unsigned  short  PARALLEL_WAIT  =795;  //"  "  "  "  """ 

const  unsigned  short  AETER_EXPO  =375;  //"  "  "  "  . . 

const  unsigned  short  SERIAL_WAIT  =2;  //"  "  "  "  """ 

const  unsigned  short  SKIP_WAIT  =2;  //"  "  "  "  "  "" 

const  unsigned  short  ROI  LEFT  =  15; ....  //usel5, 1038, 0,1023  for  full  display 

const  unsigned  short  ROI  RIGHT  =1038; 

const  unsigned  short  ROI  TOP  =  0; 

const  unsigned  short  ROI  BOTTOM  =  1023; 

const  unsigned  short  FRAME  WIDTH  =  (ROI_RIGHT-ROI_LEFT+l); 
const  unsigned  short  FRAME_HEIGHT  =  (ROI_BOTTOM-ROI_TOP+l); 
const  int  MAX_INTENSITY  =65535; 

//const  double  EXPOSURE_TIME  =0.03;  //exposure  time  in  seconds 

const  int  MINXFOV  =  435; 

const  int  MAXXFOV  =555; 

const  int  MINYFOV  =  456; 

const  int  MAXYFOV  =  574; 

int  camera  setup  (BOOL,  BOOL,  int,  double,  short); 
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sercomm.h 


// 

//  SerConim.h 

// 

//  Use  for  serial  communications. 

// 


//  Comm  Port  definitions 

#define  COMl 

1 

#define  COM2 

2 

#define  COM3 

3 

#define  COM4 

4 

#define  COM5 

5 

#define  COM6 

6 

#define  COM? 

7 

#defme  COM8 

8 

#defme  COM9 

9 

#define  COMIO 

10 

#defineCOMll 

11 

#define  COM12 

12 

//  ascii  XON  XOFF  definitions 
#define  ASCII_XON  0x11 
#define  ASCII_XOFF  0x13 

//  serial  comm  port  I/O  function  prototypes 

int  NEAR  ReadCommBlock(HANDLE,  LPSTR,  int,  LPOVERLAPPED); 
BOOL  NEAR  WriteCommBlock(HANDLE,  LPSTR,  DWORD, 
LPOVERLAPPED); 
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lmg_Bin 

Files:  img_bin.cpp 

img_biiiDlg.cpp 

biniiing.cpp 

img^biii.h 

imgLbiiiDlg.h 


img_bin.cpp 

//  img_bin.q)p  :  Defines  the  class  behaviors  for  the  application. 

// 

#include  "stdafe.h" 

#include  "img_bin.h" 

#include  "img_binDlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  TfflS_FILE[]  =  _FILE_; 

#endif 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CImg_binApp 

BEGIN_MESSAGE_MAP(CImg_binApp,  CWinApp) 

//{  {AFX_MSG_MAP(CInig_binApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 
//}}AFX_MSG 

ON_COMMAND(ID_HELP,  CWinApp::OnHelp) 
END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CImg_bmApp  construction 

CImg_binApp:  :CImg_binAppO 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  Initinstance 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I I  The  one  and  only  CImg_binApp  object 
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CImg_binApp  theApp; 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CImg_binApp  initialization 

BOOL  CInig_binApp:;InitInstanceO 

{ 

AficEnableControlContainerQ; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  shoiild  remove  fi'om  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef_AFXDLL 

Enable3dControls(); 

#else 

Enable3dControlsStatic(); 

#endif 

CImg_binDlg  dig; 
m_pMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModalQ; 
if  (nResponse  =  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  IDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  application's  message  pump, 
return  FALSE; 


//  Call  this  when  using  MFC  in  a  shared  DLL 
. //  Call  this  when  linking  to  MFC  statically 
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img_binDlg.cpp 

//  img_binDlg.cpp  :  implementation  file 

// 

#mclude  "stdafe.h" 

#include  "img_bin.h" 

#include  "img_binDlg.h" 

#ifdef_DEBUG 

#defme  new  DEBUG_NEW 

#undefTHIS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAboutDlgO; 

//  Dialog  Data 

//{  {AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD_ABOUTBOX  }; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  function  overrides 

//{ {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{  {AFX_MSG(CAboutDlg) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 


CAboutDlg:  :CAboutDlgO  :  CDialog(CAboutDlg::IDD) 

{ 

//{  {AFX_DATA_INIT(CAboutDlg) 
//}}AFX_DATA_INIT 


void  CAboutDlg:  :DoDataExchange(CDataExchange*  pDX) 
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{ 

CDialog:  :DoDataExchange(pDX); 
//{  {AFX_DATA_MAP(CAboutDlg) 
//}}AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{ {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

1 1  CImg_binDlg  dialog 

CImg_binDlg::CImg_binDlg(CWnd*  pParent  /*=NULL*/) 

:  CDialog(CImg_binDlg::IDD,  pParent) 

{ 

//{  {AFX_DATA_INIT(CImg_binDlg) 

m_imgfile  =  _T(""); 

m_outfile  =  _T(""); 

m_xbin  =  10; 

m_ybin=  10; 

m_calfile  =  _T(""); 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
m_hIcon  =  AfeGetApp()->LoadIcon(IDR_MAINFRAME); 


void  CImg_binDlg::DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

//{ {AFX_DATA_MAP(CImg_binDlg) 
DDX_Control(pDX,  1DC_YBIN_SPIN,  m_ybin_con); 
DDX_Control(pDX,  IDC_XBIN_SPIN,  m_xbin_con); 
DDX_Text(pDX,  IDC_IMGFILE_EDIT,  m_imgfile); 
DDX_Text(pDX,  IDC_OUTFILE_EDIT,  m_outfile); 
DDX_Text(pDX,  IDC_XBIN_EDIT,  m_xbin); 
DDX_Text(pDX,  IDC_YBIN_EDIT,  m_ybin); 
DDX_Text(pDX,  IDC_CALFILE_BOX,  m_calfile); 
//}}AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CImg_binDlg,  CDialog) 

//{ {AFX_MSG_MAP(CImg_binDlg) 
ON_WM_SYSCOMMAND() 

ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 
ON_BN_CLICKED(IDC_EXIT_BUTTON,OnExitButton) 
ON_BN_CLICKED(IDC_GO_BUTTON,  OnGoButton) 
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ON_BN_CLICKED(IDC_IMGBROWSE_BUTTON,OiiImgbrowseButton) 

ON_BN_CLICKED(IDC_CALBROWSE_BlJTTON,OiiCalbrowseButton) 

//}}AFX_MSG_MAP 

END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I  I  CImg_biiiDlg  message  handlers 

BOOL  ClmgbinDlg-OnlnitDialogO 

{ 

CDialog:  lOnlnitDialogO; 

//  Add  "About..."  menu  item  to  system  menu. 

//  IDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOlJTBOX); 
ASSERT(IDM_ABOUTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if  (pSysMenu  !=  NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 
if  (!strAboutMenu.IsEmpty()) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STR[NG,  IDMABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 
Setlcon(m_hlcon,  TRUE);  //  Set  big  icon 
SetIcon(m_hIcon,  FALSE);  //  Set  small  icon 

//  TODO:  Add  extra  initialization  here 
m_xbin_con.SetRange  (2, 100); 
m_ybin_con.SetRange  (2, 100); 

return  TRUE;  //  return  TRUE  unless  you  set  the  focus  to  a  control 

} 

void  CImg_binDlg::OnSysCommand(UINT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 

CAboutDlg  dlgAbout; 
dlgAbout.DoModal(); 

} 


Appendix  B  Code  Listing 


B105 


else 

{ 

CDialog:;C)nSysCommand(nID,  IParam); 

} 

} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 
//  this  is  automatically  done  for  you  by  the  framework. 

void  CImg_binDlg::C)nPaint() 

{ 

if  (IsIconicO) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WM_ICONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcO,  0); 

//  Center  icon  in  client  rectangle 

int  cxicon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect) ; 

int  X  =  (rect.WidthO  -  cxicon  +  1)  /  2; 

int  y  =  (rect.HeightO  -  cylcon  +  1)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  mhicon); 

} 

else 

{ 

CDialog:  :OnPaint(); 

} 

} 

//  The  system  calls  this  to  obtain  the  ciusor  to  display  while  the  user  drags 
//  the  minimized  window. 

HCURSOR  CImg_binDlg::OnQueryDragIcon() 

{ 

return  (HCURSOR)  m_hIcon; 

} 

void  CImg_binDlg::OnExitButton() 

{ 

DestroyWindow  (); 
exit  (0); 


void  CImg_binDlg::OnGoButton() 
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{ 

char  fiil[100],  fii2[100],  fii3[100]; 

UpdateData  (TRUE); 

strcpy  (fill,  (LPCTSTR)m_iingfile); 

if  (fill  [0]  =  '\0')  { 

MessageBox  ("No  Image  File  Selected",  "irng  bin",  MB_OK); 
return; 

} 

strcpy  (fii2,  (LPCTSTR)m_outfile); 
if  (fii2[0]  =  '\0')  { 

MessageBox  ("No  Output  File  Selected",  "irng  bin",  MB_OK); 
return; 

} 

strcpy  (fii3,  (LPCTSTR)m_calfile); 
if  (fii3[0]  =  ’\0')  { 

MessageBox  ("No  Calibration  File  Selected",  "img_bin",  MB_OK); 
return; 

} 

binning  (fill,  fii2,  fii3,  m_xbin,  m_ybin); 

} 

//  This  routine  gets  the  file  name  for  the  image  file.  The  same 
//  file  name  with  a  different  extension  (.bet)  is  used  for  the  output 
//  file  by  default. 

void  Ctog_binDlg;:OnImgbrowseButton() 

{ 

int  iresult; 
int  ext_off; 
int  i; 

ofii2.1StructSize  =  sizeof  (OPENFILENAME); 
ofii2.hInstance  =  NULL; 
ofii2.hwndOwner  =  NULL; 

ofii2.1pstrFilter  =  "CTISP  image  files  (*.ctp)\0*.ctp\0All  Files 
(*.*)\0*.*\0\0"; 

ofii2.1pstrCustomFilter  =  NULL; 
ofii2.nMaxCustFilter  =  0; 
ofii2.nFilterIndex  =  1; 
ofii2.1pstrDefExt  =  "ctp"; 
ofii2.1CustData  =  NULL; 
ofii2.1pfiaHook  =  NULL; 
ofii2.1pTemplateName  =  NULL; 
ofii2.1pstrFile  =  img_name; 
ofii2.nMaxFile  =  500; 
ofii2.1pstrFileTitle  =  img_title; 
ofii2.rLMaxFileTitle  =  99; 
ofii2.1pstrInitiaIDir  =  "WctispWdata"; 
ofii2.1pstrTitle  =  "Open  Image  File"; 
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ofii2.Flags  =  OFN_FILEMUSTEXIST; 
img_name[0]  =  '\0'; 
iresult  =  GetOpenFileName  (&ofii2); 
if  (iresult)  { 

UpdateData  (TRUE); 
m_imgfile  =  imgname; 
ext_off  =  ofii2.iiFileExtension; 
for  (i=0;  i<ext_ofF;  i-H-) 

out_name[i]  =  img_name[i]; 
out_name[ext_off]  =  T?'; 
out_name[ext_off+l]  =  'c'; 
out_name[ext_off+2]  =  't'; 
out_name[ext_off+3]  =  '\0'; 
moutfile  =  out_name; 

UpdateData  (FALSE); 
UpdateWindow  (); 

} 


void  CImg_binDlg;:OnOK  () 

{ 

return; 

} 

//  This  routine  gets  the  file  name  for  the  calibration  file, 
void  CImg_binDlg:;OnCalbrowseButtonO 
{ 

int  iresult; 

ofiil  .IStructSize  =  sizeof  (OPENFILENAME); 
ofiil  .hinstance  =  NULL; 
ofiil  .hwndOwner  =  NULL; 

ofhl.lpstrFilter  =  "CTISP  calibration  files  (*.cal)\0*.cal\0All  Files 
(*.*)\0*.*\0\0"; 

ofiil  .IpstrCustomFilter  =  NULL; 

ofiil. nMaxCustFilter  =  0; 

ofiil.nFilterlndex  =  1; 

ofiil. IpstrDefExt  =  "cal"; 

ofiil  .ICustData  =  NULL; 

ofiil  .IpfiiHook  =  NULL; 

ofiil. IpTemplateName  =  NULL; 

ofiil  .IpstrFile  =  calname; 

ofiil. nMaxFile  =  500; 

ofiil  .IpstrFileTitle  =  caltitle; 

ofiil. nMaxFileTitle  =  99; 

ofiil. lpstrInitialDir=  "WctispWdata"; 

ofiil. IpstrTitle  =  "Open  calibration  File"; 

ofiil. Flags  =  OFN_FILEMUSTEXIST; 

cal_name[0]  =  '\0'; 
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iresult  =  GetOpenFileName  (&ofiil); 
if  (iresult)  { 

UpdateData  (TRUE); 
mcalfile  =  cal_name; 
UpdateData  (FALSE); 
UpdateWindow  (); 

} 
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binning.cpp 

#mclude  <st(iio.h> 
#include  <stdlib.h> 
#include  "stdafx.h" 
#include  "img_bm.h" 
#mclude  "img  binDlg.h" 
#include  <math.h> 


//#defme  MAXX  1040 
//#defme  MAXY  1028 
#define  MAXX  1024 
#define  MAXY  1024 
#defme  ROI_LEFT  15 
#defme  ROI_TOP  0 


unsigned  short  bufl[MAXY*MAXX]; 
unsigned  short  buf2|MAXY]IMAXX]; 


void  Clmg_binDlg::binning  (char  *infile,  char  *outfile,  char  *calfile, 
int  xbin,  int  ybin) 


FILE  *in,  *out,  *cal; 

int  i,  j,  k,  m,  kk,  mm; 

int  xpix,  ypix,  newxpix,  newypix; 

int  value; 

char  mess[100]; 

rmsigned  short  header[13]; 

int  xstart,  xinc,  xsteps; 

int  ystart,  yinc,  ysteps; 

int  xoff,  yoff; 

int  nfilters; 

int  nzero; 

int  ixbin,  iybin; 


//  Open  files 

// 

if  ((in=fopen(infile,  "rb"))  =  NULL)  { 

MessageBox  ("Error  opening  image  file",  "img  bin",  MB  OK); 
return; 

} 

if  ((cal=fopen(calfile,  "rb"))  =  NULL)  { 

MessageBox  ("Error  opening  calibration  file",  "img  bin",  MB  OK); 
return; 

} 

if  ((out=fopen(outfile,  "wb"))  =  NULL)  { 

MessageBox  ("Error  opening  output  file",  "img  bin",  MB  OK); 
return; 

} 
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//  Read  calibration  header 

// 

fscanf  (cal,  "%d  %d",  &xpix,  &ypix); 
fscanf  (cal,  "%d  %d",  &ixbin,  &iybm); 
fscanf  (cal,  "%d  %d  %d",  &xstart,  &xinc,  &xsteps); 
fscanf  (cal,  "%d  %d  %d",  &ystart,  &yinc,  &ysteps); 

//  Read  image 

// 

fread  (header,  2, 13,  in); 
nfilters  =  header  [0]; 
xpix  =  header[l]; 
ypix  =  header[2]; 

//  Calculate  new  image  size 

xoff  =  (xstart-ROI_LEFT-(xbm/2))  %  xbin; 

yoff  =  (ystart-ROI_TOP-(ybin/2))  %  ybin  +  ROI_TOP; 

newxpix  =  (xpix-xofif)  /  xbin; 

newypix  =  (ypix-yofif)  /  ybin; 

//  write  header 
header[l]  =  newxpix; 
header[2]  =  newypix; 
fwrite  (header,  2, 13,  out); 

//  Perform  binning 
for  (j=0;  j<nfilters;  j-H-)  { 

fread  (bufl,  2,  xpix*ypix,  in); 
nzero  =  zero  (bufl,  3.0); 
for  (k=0;  k<newypix;  k-H-)  { 
for  (m=0;  m<newxpix;  m-H-)  { 
value  =  0; 

for  (kk=0;  kk<ybin;  kk-H-) 

for  (mm=0;  mm<xbin;  mm-H-) 
value  += 

bufl[(k*ybm+kk+yofi[)*MAXX+(m*xbin+mm+xoff)]; 
buf2p£][m]  =  value  /  (xbin*ybin); 

} 

} 

//  Write  new  data 

for  (i=0;  i<newypix;  i-H-) 

fwrite  (&buf2[i][0],  2,  newxpix,  out); 

} 

MessageBox  ("Done",  "img_bin",  MB_OK); 
fclose  (in); 
fclose  (cal); 
fclose  (out); 
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} 


int  CImg_biiiDlg::zero  (unsigned  short  *bufrer,  float  threshold) 

{ 

unsigned  short  *buff; 

inti,j,k; 

int  num; 

double  Sinn,  avg,  sd; 
char  mess[100]; 
int  val; 

sum  =  0.0; 
for  (i=0;  i<30;  i++) 
for  (j=0;  j<100; )++) 

sum  +=  *(bufferfi*MAXX+j); 
avg  =  sum  /  3000.0; 
sum  =  0; 

for  (i=0;  i<30;  i++) 
for(j=0;j<100;j-H-)  { 

val  =  avg  -  *(buffei^i*MAXX+j); 
sum  +=  val  *  val; 

} 

sd  =  sqrt(sum/2999.0); 
num  =  0; 
buff  =  buffer; 

for  (k=0;k<(MAXX*MAXY);k++)  { 
if  (((float)*buff  <  avg+threshold*sd)) 

*buff=0; 
else  { 

*buff  =  *buff  -  avg; 
mun++; 

} 

buff-H-; 

} 

return  (num); 
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img_bin.h 

//  img_bm.h  :  main  header  file  for  the  IMG_BIN  application 

// 

#if 

!defmed(AFX_IMG_BIN_H_BE761B55_EA75_llDl_821E_0000C0A97971_ 

_INCLUDEDJ 

#defme 

AFX_IMG_BIN_H_BE761B55_EA75_11D1_821E_0000C0A97971_INCLU 

DED_ 

#if_MSC_VER>=1000 
#pragma  once 

#endif //  _MSC_VER  >=  1000 
#ifiidef_AFXWIN_H_ 

#error  include  'stdafe.h'  before  including  this  file  for  PCH 
#endif 

#include  "resource.h"  //  main  symbols 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CImg_binApp: 

//  See  img_bin.cpp  for  the  implementation  of  this  class 

// 

class  CImg_bmApp  :  public  CWinApp 

{ 

pubhc: 

CImg_bmApp(); 

//  Overrides 

//  ClassWizard  generated  virtual  function  overrides 

//{  { AFX_VIRTUAL(CImg_binApp) 

public: 

virtual  BOOL  InitlnstanceQ; 

//}}AFX_VIRTUAL 

//  Implementation 

//{  {AFX_MSG(CImg_binApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  functions  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 
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Illlllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^^ 


//{  {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_IMG_BIN_H_BE761B55_EA75_llDl_821E_0000C0A97971 

_INCLUDEDJ 
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img_binDlg.h 

//  ung_binDlg.h :  header  file 

// 

#if 

!defiiied(AFX_IMG_BINDLG_H_BE761B57_EA75_llDl_821E_0000C0A97 

971_INCLUDEDJ 

#define 

AFX_IMG_BINDLG_H_BE761B57_EA75_11D1_821E_0000C0A97971_IN 

CLUDED_ 

#if_MSC_VER>=  1000 
#pragma  once 

#endif//_MSC_VER>=  1000 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CImg_binDlg  dialog 

class  CImg_binDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CImg_binDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

//{  {AFX_DATA(CInig_binDlg) 

enum  {  IDD  =  IDD_IMG_BIN_DIALOG  }; 

CSpinButtonCtrl  m_ybin_con; 

CSpinButtonCtrl  m_xbin_con; 

CString  m_ungfile; 

CString  m_outfile; 

UINT  ni_xbin; 

UINT  m_ybm; 

CString  m_calfile; 

//}}AFX_DATA 

//  User  data  and  functions 
char  ung_name[500],  inig_title[100]; 
char  out_name[500],  out_title[100]; 
char  cal_name[500],  cal_title[100]; 

OPENFILENAME  ofiil,  ofii2,  ofii3; 

void  binning  (char  *,  char  *,  char  *,  int,  int); 
int  zero  (unsigned  short  *,  float); 

//  ClassWizard  generated  virtual  function  overrides 
//{  {AFX_VIRTUAL(CImg_binDlg) 
protected: 
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virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV  support 
//}}AFX_VIRTUAL 

//  Implementation 
protected: 

HICONm_hIcon; 

//  Generated  message  map  functions 
//{ {AFX_MSG(CImg_binDlg) 
virtual  BOOL  OnInitDialogO; 

afe_nisg  void  OnSysCommand(UINT  nID,  LPARAM  IParam); 

afe_msg  void  OnPaintQ; 

afic_msg  HCURSOR  OnQueryDraglconQ; 

afe_msg  void  OnExitButton(); 

afii_msg  void  OnGoButtonQ; 

a&_msg  void  OnlmgbrowseButtonQ; 

afic_msg  void  OnOKQ; 

afic_msg  void  OnCalbrowseButtonQ; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{ {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_IMG_BINDLG_H_BE761B57_EA75_llDl_821E_0000C0A97 

971_INCLUDEDJ 
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Calc  Stokes 


Files:  reconstruction.cpp 

reconstructionDlg.cpp 

recon_i]nage.cpp 

matrix_iiiv.cpp 

reconstruction.]! 

reconstructionDlg.li 

recon.Ii 

niatrix_inv.]i 

StdAfx.h 


reconstruction.cpp 

//  reconstruction.cpp  :  Defines  the  class  behaviors  for  the  application. 

// 

#mclude  "stdafe.h" 

#include  "reconstruction.h" 

#include  "reconstructionDlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTHIS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I  I  CReconstructionApp 

BEGIN_MESSAGE_MAP(CReconstructionApp,  CWinApp) 

//{  {AFX_MSG_MAP(CReconstructionApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 
//}}AFX_MSG 

ON_COMMAND(lD_HELP,  CWinApp:  :OnHelp) 
END_MESSAGE_MAPO 

////////////////////////W 

//  CReconstructionApp  construction 

CReconstructionApp : :  CReconstructionAppO 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  Initlnstance 
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Illllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  The  one  and  only  CReconstructionApp  object 

CReconstructionApp  theApp; 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CReconstructionApp  initialization 

BOOL  CReconstructionApp::InitInstanceO 

{ 

AfxEnableControlContainerO; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  should  remove  from  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef^XDLL 

Enables  dControlsQ;  . //  Call  this  when  using  MFC  in  a  shared  DLL 

#else 

EnableSdControlsStaticQ; . //  Call  this  when  linking  to  MFC  statically 

#endif 

CReconstructionDlg  dig; 
m_pMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModalQ; 
if  (nResponse  =  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  DDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  application's  message  pump, 
return  FALSE; 
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reconstructionDIg.cpp 

//  reconstructionDIg.cpp  :  implementation  file 

// 

#include  "stdafe.h" 

#include  "reconstruction.li" 

#include  "reconstructionDlg.h" 

#include  "recon.li" 

#mclude  "matrix_inv.h" 

#include  <matli.h> 

#include  <stdio.h> 

extern  struct  param_st  params; 
extern  double  finat[MAXN]; 
extern  hcol  hmat[MAXN]; 
extern  double  suml[MAXN]; 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAboutDlgO; 

//  Dialog  Data 

//{  {AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD_ABOUTBOX  }; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  fimction  overrides 

//{  {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{ {AFX_MSG(CAboutDlg) 

//}}AFX_MSG 
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DECLARE_MESSAGE_MAPO 


}; 


CAboutDIg::CAboutDlgO  :  CDialog(CAboutDlg::IDD) 

{ 

//{ {AFX_DATA_INIT(CAboutDlg) 
//}}AFX_DATA_INIT 


void  CAboutDIg::DoDataExchaiige(CDataExchange’''  pDX) 

{ 

CDialog:  :DoDataExchange(pDX) ; 

//{ {AFX_DATA_MAP(CAboutDlg) 
//}}AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{  {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

I  I  CReconstructionDlg  dialog 

CReconstructioiiDlg:;CReconstmctionDlg(CWnd*  pParent  /*=NULL*/) 
:  CDialog(CReconstructionDlg::IDD,  pParent) 

{ 

//{ {AFX_DATA_INIT(CReconstructionDlg) 

m_Status_Edit  =  _T(""); 

m_Base_Edit  =  _T(""); 

m_XInc_Edit  =  0; 

m_XStart_Edit  =  0; 

m_XSteps_Edit  =  0; 

m_YInc_Edit  =  0; 

m_YStart_Edit  =  0; 

m_YSteps_Edit  =  0; 

m_WStart_Edit  =  0; 

m_WSteps_Edit  =  0; 

m_WInc_Edit  =  0; 

m_maxiter=  10; 

m_tol  =  0.0000 If; 

mjprogjext  =  _T(""); 

m_eti  =  _T(""); 

m_ett  =  _T(""); 

m_est_tmie  =  _T(""); 

m_outfile  =  _T(""); 

m_imgfile  =  _T(""); 

m_wmvfile  =  _T(""); 

m_xres  =  33; 
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m_yres  =  33; 
m_sO_thresh  =  O.OOlf; 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
m_hIcon  =  AfeGetApp()->LoadIcon(lDR_MAJNFRAME); 


void  CReconstructionDlg::DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

//{  {AFX_DATA_MAP(CReconstructionDlg) 
DDX_Control(pDX,  IDC_SO_TEIRESH_BOX,  m_sO_con); 
DDX_Control(pDX,  IDCYRESSPIN,  m_yres_con); 
DDX_Control(pDX,  IDCYRESBOX,  m_yres_edit_con); 
DDX_Control(pDX,  IDC_XRES_BOX,  mxreseditcon); 
DDX_Control(pDX,  IDC_XRES_SPIN,  mxrescon); 
DDX_Control(pDX,  IDC_WINVFILE_EDIT,  m_winvfile_con); 
DDX_Control(pDX,  IDC_IMGFILE_EDIT,  ni_imgfile_con); 
DDX_Control(pDX,  IDC_OUTFILE_EDIT,  m_outfile_con); 
DDX_Control(pDX,  IDC_TOL_EDIT,  m_tol_con); 
DDX_Control(pDX,  IDC_BASE_BOX,  m_base_con); 
DDX_Control(pDX,  IDC_MAXITER_EDrr,  m_maxiter_con); 
DDX_Control(pDX,  IDCPROGRESSl,  m_prog_con); 
DDX_Control(pDX,  IDCMAXITERSPBSf,  mniaxiterspin); 
DDX_Control(pDX,  IDC_STATUS_BOX,  mStatusCon); 
DDX_Text(pDX,  IDC_STATUS_BOX,  ni_Status_Edit); 
DDX_Text(pDX,  IDC_BASE_BOX,  mBaseEdit); 
DDX_Text(pDX,  IDC_XINC_BOX,  m_XInc_Edit); 
DDX_Text(pDX,  IDC_XSTART_BOX,  m_XStart_Edit); 
DDX_Text(pDX,  IDC_XSTEPS_BOX,  m_XSteps_Edit); 
DDX_Text(pDX,  IDC_YINC_BOX,  ni_YInc_Edit); 
DDX_Text(pDX,  IDC_YSTART_BOX,  m_YStart_Edit); 
DDX_Text(pDX,  IDC_YSTEPS_BOX,  m_YSteps_Edit); 
DDX_Text(pDX,  IDC_WSTART_BOX,  m_WStart_Edit); 
DDX_Text(pDX,  IDC_WSTEPS_BOX,  m_WSteps_Edit); 
DDX_Text(pDX,  IDC_WINC_BOX,  m_WInc_Edit); 
DDX_Text(pDX,  IDC_MAXITER_EDIT,  m_maxiter); 
DDX_Text(pDX,  IDC_TOL_EDIT,  mjol); 

DDX_Text(pDX,  IDC_PROG_TEXT,  m_prog_text); 
DDX_Text(pDX,  IDC_ETI_STATIC,  m_eti); 

DDX_Text(pDX,  IDC_ETT_STATIC,  m_ett); 

DDX_Text(pDX,  EDC_EST_STATIC,  m_est_time); 
DDX_Text(pDX,  IDC_OUTFILE_EDIT,  m_outfile); 
DDX_Text(pDX,  IDC_IMGFILE_EDIT,  m_imgfile); 
DDX_Text(pDX,  IDC_WINVFILE_EDIT,  m_winvfile); 
DDX_Text(pDX,  IDC_XRES_BOX,  m_xres); 

DDX_Text(pDX,  IDC_YRES_BOX,  m_3Tres); 

DDX_Text(pDX,  IDC_SO_THRESH_BOX,  ni_sO_thresh); 
//}}AFX_DATA_MAP 
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BEGIN_MESSAGE_MAP(CReconstructionDlg,  CDialog) 

// { { AFX_MSG_MAP(CReconstructionDlg) 

ON_WM_SYSCOMMAND() 

ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 

ON_BN_CLICKED(IDC_EXIT_BUTTON,OnExitButton) 

ON_BN_CLICKED(IDC_GO_BUTTON,OnGoButton) 

ON_BN_CLICKED(IDC_CLEARSTATUS_BUTTON, 

OnClearstatusButton) 

ON_BN_CLICKED(IDC_CALBROWSE_BUTTON,OnCalbrowseButton) 
ON_BN_CLICKED(IDC_CANCEL_BUTTON,  OnCancelButton) 
ON_BN_CLICKED(IDC_IMGBROWSE_BUTTON,OnImgbrowseButton) 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

I  I  CReconstructionDlg  message  handlers 

BOOL  CReconstructionDlg::OnInitDialog() 

{ 

CDialog;  :OiiInitDialog(); 

//  Add  "About..."  menu  item  to  system  menu. 

//  BDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOlJTBOX); 
ASSERT(IDM_ABOUTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if(pSysMenu!=NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 
if  (IstrAboutMenu.IsEmptyO) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STRING,  IDM  ABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 


SetIcon(m_hIcon,  TRUE) . //  Set  big  icon 

SetIcon(m_hIcon,  FALSE); . //Set  small  icon 


//  TODO:  Add  extra  initialization  here 
m_xres_con.SetRange  (1, 100); 
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m_yres_con.SetRange  (1, 100); 
m_maxiter_spin.SetRange  (1, 100); 

return  TRUE;  //  return  TRUE  unless  you  set  the  focus  to  a  control 

} 

void  CReconstructionDlg::OnSysCommand(UINT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 

CAboutDlg  dlgAbout; 
dlgAbout.DoModal(); 

} 

else 

{ 

CDialog;:OnSysConimand(nID,  IParam); 

} 

} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 
//  this  is  automatically  done  for  you  by  the  framework. 

void  CReconstmctionDlgxOnPaintO 

{ 

if  (IsIconicQ) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WMJCONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcQ,  0); 

//  Center  icon  in  client  rectangle 

int  cxicon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect); 

int  X  =  (rect.Width0  -  cxicon  +  1)  /  2; 

int  y  =  (rect.HeightO  -  cylcon  +  1)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  m_hIcon); 

} 

else 

{ 

CDialog::OnPaint(); 

} 

} 

//  The  system  calls  this  to  obtain  the  cursor  to  display  while  the  user  drags 
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//  the  minimized  window. 

HCURSOR  CReconstructionDlg: ;  OnQueryDraglconQ 

{ 

return  (HCURSOR)  m_hIcon; 

} 

void  CReconstructionDlg;  :OnExitButton() 

{ 

DestroyWindow  (); 
exit  (0); 


void  CReconstructionDlg:  :OnGoButton() 

{ 

inti,j,k,  m; 
int  wave; 

//  Get  parameters 

// 

UpdateData  (TRUE); 

//  Initialization 

// 

for  (i=0;  i<m_WSteps_Edit;  i-H-) 
maxrec[i]  =  0.0; 
params.bcancel  =  FALSE; 
m_maxiter_con.SetReadOnly  (TRUE); 
m_xres_edit_con.SetReadOnly  (TRUE); 
m_yres_edit_con.SetReadOnly  (TRUE); 
m  xres  con.SetRange  (m_xres,  m  xres); 
m_yres_con.SetRange  (m_yres,  m_yres); 
m_maxiter_spin.SetRange  (m  maxiter,  m  maxiter); 
m_tol_con.SetReadOnly  (TRUE); 
mbasecon.SetReadOnly  (TRUE); 
moutfilecon.SetReadOnly  (TRUE); 
mimgfilecon.SetReadOnly  (TRUE); 
m  winvfile  con.SetReadOnly  (TRUE); 
m_eti  = 
mett  = 
m_est_time  = 
m_prog_text  =  ""; 
m_prog_con.SetPos  (0); 
m_sO_con.SetReadOnly  (TRUE); 

//  Open  output  image  file 

// 

strcpy  (out  fii,  (LPCTSTR)m_outfile); 
if  (out_fii[0]  =  '\0')  { 

MessageBox  ("No  Output  File  Specified",  "calc  stokes",  MB_OK); 
return; 
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} 

out  =  fopen  (out_fii,  "wbc"); 
if  (out  =  NULL)  { 

MessageBox  ("Error  opening  output  file",  "calc_stokes",  MB_OK); 
return; 

} 

m_Status_Edit  +=  "Opened  "  +  m_outfile  +  "\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Open  log  file 

// 

log  =  fopen  (log  fii,  "wbc"); 
if  (log  =  NULL)  { 

MessageBox  ("Error  opening  log  file",  "calc_stokes",  MB_OK); 
return; 

} 

m_Status_Edit  +=  "Opened  log  file  \r\n"; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Make  sure  input  files  have  been  specified 

// 

strcpy  (cal_fii,  (LPCTSTR)m_Base_Edit); 
if(cal_fil[0]  =  ^0'){ 

MessageBox  ("No  Calibration  File  Specified",  "calc  stokes",  MB_OK); 
return; 

} 

OnOKO; 

strcpy  (invjStt,  (LPCTSTR)m_winAdile); 
if(inv_fil[0]  =  ^0')  { 

MessageBox  ("No  W  inverse  File  Specified",  "calc_stokes",  MB_OK); 
return; 

} 

inv  =  fopen  (inv  fii,  "r"); 
if(inv  =  NULL)  { 

MessageBox  ("Error  opening  inverse  file",  "calc_stokes",  MB  OK); 
return; 

} 

strcpy  (img  fii,  (LPCTSTR)m_imgfile); 
if  (img_fii[0]  =  '\0')  { 

MessageBox  ("No  Image  File  Specified",  "calc_stokes",  MB_OK); 
return; 

} 


//  Begin  first  reconstruction 

// 

paranis.mum  =  0; 

time  (&params.start_time); 
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SendMessage  (WM_START_RECON,  0, 0  ); . 

} 

void  CReconstructionDIg::stokes  Q 

{ 

float  winv[POL_STATES][POL_STATES]; 
inti,j,k,m,n,ii,jj; 

int  xsize,  ysize,  wsize,  npol,  pstate,  wave; 

int  ixsize,  iysize,  iwsize,  inpol; 

float  p[POL_STATES],  s[7]; 

float  **pp,  ■'‘*wwinv,  **ss; 

int  ns,  nl,  nxun,  val; 

float  rval; 

unsigned  char  head[18]; 
unsigned  char  *buffer; 
float  *invp, 
char  mess[200]; 
float  s2[7*MAXN],  *sp; 

float  r50halon[16]={14.017356, 10.50370064, 6.94271324, 4.81366868, 
1 .56245952, 1 . 10701032,0.95892332,0.74598888} ; 

sp  =  s2; 

//  Read  W  inverse  header 

fscanf  (inv,  "%d  %d  %d  %d",  &ixsize,  &iysize,  &iwsize,  &inpol); 

//  Write  output  header 
for  (i=0;  i<18;  i-H-) 
head[i]  =  0; 

ns  =  7*(params.xsize+3); 

nl  =  params.zsize*(params.ysize+3); 

head[2]  =  3; 

head[13]  =  ns/256; 

head[12]  =  ns  -  head[13]*256; 

head[15]  =  nl/256; 

head[14]  =  nl  -  head[15]*256; 

head[16]  =  8; 

head[17]  =  32; 

fwrite  (head,  1, 18,  out); 

//  Allocate  storage 
invp  =  (float 

*)malloc(ixsize*iysize*POL_STATES*POL_STATES*sizeof(float)); 
buffer  =  (unsigned  char  *)nialloc(ns); 

ss  =  (float  ’'‘*)nialloc((unsigned)  POL_STATES*sizeof(float  *)); 
pp  =  (float  ’'‘*)malloc((unsigned)  POL_STATES*sizeof(float  *)); 
wwinv  =  (float  **)nialloc((unsigned)  POL_STATES*sizeof(float  *)); 
for  (i=0;  i<POL_STATES;  i++){ 
ss[i]  =  &s[i]; 
pp[i]  =  &p[i]; 
wwinv[i]  =  winv[i]; 
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} 


//  Loop  through  wavelengths 
for  (k=0;  k<iwsize;  k-H-)  { 

//  Read  W  inverse  matrices 
^  =  invp; 

for  (i=0;  i<ixsize*iysize;  i-H-){ 

fscanf  (inv,  "%d  %d",  &wave,  &num); 
for  0=0;  j<POL_STATES*POL_STATES;  j++) 
fscanf  (inv,  "%f i^++); 

} 

for  (i=0;  i<ns;  i-H-) 
buffer[i]  =  0; 
for  (i=0;  i<3;  i-H-) 

fwrite  (buffer,  1,  ns,  out); 

//  Loop  through  xy  positions 
for  (i=0;  i<params.ysize;  i-H-)  { 
for  0=0;  j<params.xsize;  j-H-)  { 
ii  =  i  /  (params.ysize/iysize); 
jj  =  j  /  (params.xsize/ixsize); 

^  =  invp  -I-  (ii*iysize-t-jj)*POL_STATES*POL_STATES; 
for  (m=0;  m<POL_STATES;  m-H-) 
for  (n=0;  n<POL_STATES;  n-Kh) 
winv[m][n]  =  *(^-H-); 

//  Read  P  vector 

for  (m=0;  m<POL_STATES;  m-H-) 
p[m]  = 

*(rm[m]-Hj-i-i*params.xsize-i-k*params.xsize*params.ysize); 

//  Calculate  S  vector  and  related  parameters 

matrix  mult  (wwinv,  pp,  ss,  POL_STATES,  POL  STATES,  1); 

if  (s[0]  >  m  sO  thresh)  { 

s[4]  =  sqrt(s[l]*s[l]  +  s[2]*s[2]  -t-  s[3]*s[3])  /  s[0]; 

s[5]  =  sqrt(s[l]*s[l]  s[2]*s[2])  /  s[0]; 

s[6]  =  fabs(s[3])  /  s[0]; 

s[l]  =  s[l]/s[0]; 

s[2]  =  s[2]  /  s[0]; 

s[3]  =  s[3]/s[0]; 

} 

else  { 

s[l]  =  0.0; 
s[2]  =  0.0; 
s[3]  =  0.0; 
s[4]  =  0.0; 
s[5]  =  0.0; 
s[6]  =  0.0; 

} 
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//  Nonnalize  data  for  output 
for  (m=0;  ni<7;  m++)  { 
val  =  (s[m]+1.0)*  127.5; 
if  ((m=0)  II  (m>3))  val  =  s[m]  *  255.0; 
if  (val  >  255)  val  =  255; 
if  (val  <  0)  val  =  0; 

buffer[m*(params.xsize+3)+j]  =  (unsigned  char)val; 
*(sp-H-)  =  s[m]; 


} 

//  Write  out  a  line 
fwrite  (buffer,  1,  ns,  out); 

} 

} 

//  Write  stokes  data  to  log  file 

// 

for  (i=0;  i<params.ysize;  1++) 
for  (j=0;  j<params.xsize; )++) 
for  (k=0;  k<iwsize;  k-H-)  { 

^rintf  (log,  "%d  %d  %d  ",  j,  i, 
lmiat[k*paranis.xsize*params.ysize].wave); 
for  (ni=0;  m<7;  m++) 
fi)rintf  (log,  "%f  ", 

s2rk*params.xsize*params.ysize*7+i*params.xsize*7+j*7+m]); 

^rintf  (log,  "\r\n"); 

} 

//  Write  scirt  file 

log2  =  fopen  ("temp.dat",  "wbc"); 
if(log2  =  NULL)  { 

MessageBox  ("Error  opening  log2  file",  "calc  stokes",  MB  OK); 
return; 

} 

for  (j=0;  j<params.xsize; )++) 
for  (i=0;  i<params.ysize;  i-H-) 
for  (k=0;  k<iwsize;  k-H-)  { 

rval  =  s2Pc*params.xsize*params.ysize*7-i-i*paranis.xsize*7-t-j*7] 

*  1000.0; 

if  (rval  >  1000.0)  rval  =  1000.0; 

^rintf  (log2,  "%f\r\n",  rval); 

} 

fflush  (out); 
fclose  (inv); 


void  CReconstructionDlg::OnOK  Q 

{ 
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char  fQ[500]; 
char  mess[200]; 

FILE  *in; 
int  xpix,  ypix; 
int  nfilters; 
int  xbin,  ybin; 

UpdateData  (TRUE); 

//  If  calibration  file  has  been  selected,  read  it's  header 

// 

strcpy  (fn,  (LPCTSTR)m_Base_Edit); 
if  (fii[0]  !=  '\0')  { 

if  ((in  =  fopen(fii,  "r"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  fii); 

MessageBox  (mess,  "reconstruction",  MB_OK); 

} 

else  { 

fscanf  (in,  "%d  %d",  &xpix,  &ypix); 
fscanf  (in,  "%d  %d",  &xbin,  &ybin); 
fscanf  (in,  "%d  %d  %d",  &m_XStart_Edit,  &m_XInc_Edit, 
&m_XSteps_Edit); 

fscanf  (in,  "%d  %d  %d",  &m_YStart_Edit,  &m_YInc_Edit, 
&m_YSteps_Edit); 

fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &m_WStart_Edit,  &m_WInc_Edit, 
&m_WSteps_Edit); 

UpdateData  (FALSE); 
fclose  (in); 

} 

} 

UpdateWindow  (); 


void  CReconstmctionDlg:  :OnClearstatusButtonO 

{ 

UpdateData  (TRUE); 
m_Status_E<iit  =  ""; 

UpdateData  (FALSE); 


void  CReconstmctionDlg:  ;update_status_scroll  Q 

{ 

int  minscr,  maxscr; 


m_Status_Con.GetScrolIRange  (SB  VERT,  &minscr,  &maxscr); 
if  (maxscr  >11) 

m_Status_Con.LineScroll  (maxscr-11,  0); 
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UpdateWindow  (); 


} 


void  CReconstructionDlg : :  OnCalbrowseButtonQ 

{ 

int  iresult; 
int  ext_off; 
intij; 

CFileStatus  status; 
charnuni[5]="1234"; 


ofii2.1StructSize  =  sizeof  (OPENFILENAME); 
ofii2.hInstance  =  NULL; 
ofii2.hwndOwner  =  NULL; 

ofii2.1pstrFilter  =  "CTISP  calibration  files  (*.bcl)\0*.bcl\0All  Files 
(*.*)\0*.*\0\0"; 

ofii2.1pstrCustomFilter  =  NULL; 
ofii2.nMaxCustFilter  =  0; 
ofiiLZ.nFilterlndex  =  1; 
ofii2.1pstrDefExt  =  "bcl"; 
ofii2.1CustData  =  NULL; 
ofii2.1pfiiHook  =  NULL; 
ofiQ2.1pTemplateNaine  =  NULL; 
ofn2.1pstrFile  =  calname; 
ofii2.nMaxFile  =  500; 
ofii2.1pstrFileTitle  =  caltitle; 
ofii2.nMaxFileTitle  =  99; 
ofii2.1pstrInitiaIDir  =  "WctispWdata"; 
ofii2.1pstrTitle  =  "Open  Calibration  File"; 
ofii2.Flags  =  OFN_FILEMUSTEXIST; 
cal_nanie[0]  =  '\0'; 

iresult  =  GetOpenFileName  (&ofh2); 
if  (iresult)  { 

UpdateData  (TRUE); 
m_Base_Edit  =  calname; 
extoff  =  ofii2.nFileExtension; 
for  (i=0;  i<ext_off;  i++) 

winv_name[i]  =  cal_name[i]; 
wmv_name[ext_off]  =  'i'; 
winv_name[ext_ofif+l]  =  'n'; 
winv_name[ext_off+2]  =  V; 
winv_name[ext_off+3]  =  '\0'; 
m_winvfile  =  winvname; 

UpdateData  (FALSE); 

OnOK  0; 

UpdateWindow  (); 
for(j=0;j<4;j-H-)  { 

for  (i=0;  i<ext_ofF;  i-H-) 

params.emfiles[j][i]  =  cal_name[i]; 
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params.emfiles[j][ext_off]  =  'e'; 
params.emfiles[j][ext_off+l]  =  'm'; 
params.emfiles[jj[ext_off+2]  =  nxim[j]; 
paratns.emfiles[j][ext_off+3]  =  '\0'; 
if(  CFile::GetStatus(  params.emfileslj],  status )) 
params.emflags[j]  =  1; 
else 

paranis.emflags[j]  =  2; 

} 

} 

} 


LRESULT  CReconstructioiiDlg::WindowProc(UINT  message,  WPARAM 
wParam,  LPARAM  IParam) 

{ 

int  i,  j,  k,  n,  m; 

char  mess[200],  strl[100]; 

int  npos; 

time_t  current_time; 
int  eti,  ett,  est; 
static  int  estcnt=l; 
float  maxf,  sf; 
rmsigned  char  val[1024]; 
float  fval; 
intindl,  ind2; 
int  iresult; 
char  base[500]; 

LPVOID  paraml; 
double  *1^; 

int  pol_order[4]=  {3, 1 ,2,0} ; 

char  *filter_name[5]={"No",  "Circular",  "Vertical",  "45  Degree", 
"Horizontal"}; 
int  oldwv; 
int  nchars,  ext_off; 
char  fiiame[100]; 


switch  (message)  { 

case  WM_START_RECON : 

//  Get  cal  data  for  this  filter  and  its  corresponding  pol  state 

// 

i  =  params-miun; 

sprintf  (base,  "Extracting  cal  data  for  %s  filter\r\n", 
filter_name[pol_order[i]+l]); 

m_Status_E<ht  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 
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iresult  =  read_hcol  (cal_fii,  pol_order[i]+l,  pol_order[i]); 
if  (iresult  <  0) 
return  (iresult); 

//  Extract  image 

// 

sprintf  (base,  "Reading  image  for  %s  filter\r\n", 
filter_name[pol_order[i]+l]); 

m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 
iresult  =  read_gmat  (img_fii,  pol_order[i]+l); 
if  (iresult  <  0) 
return  (iresult); 

//  Perform  reconstruction 

// 

sprintf  (base,  "Beginning  reconstruction\r\n"); 
m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 
params.hwnd  =  m_hWnd; 
params.maxiter  =  m_maxiter; 
params.tolerance  =  m_tol; 

^rintf  (log,  "\r\nReconstruction  for  %s  filter\r\n", 
filter_name[pol_order[i]+ 1  ]); 

AficBeginT^ead  (recon_image,  paraml); 
return  (0); 

case  WM_ELEM_DONE : 

//  Update  progress  meter 

// 

if  (params.n  =  0)  { 

sprintf  (mess,  "Iteration  %d",  params.iterf  1); 
m_prog_text  =  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

} 

m_prog_con.SetRange  (0,  params.N-l); 
m_prog_con.SetPos  (params.n); 
return  (0); 

case  WM_ITER_DONE : 

//  Update  time  estimate 

// 

time  (&current_time); 

eti  =  current_time  -  params.iter_time; 

sprintf  (mess, "  Iteration  Time  :  %02d;%02d:%02d". 


B132 


Appendix  B  Code  Listing 


eti/3600,  (eti%3600)/60,  eti%60); 
m_eti  =  mess; 

ett  =  current_time  -  params.start_time; 

sprintf  (mess,  "Elapsed  Time  (Total)  :  %02d:%02d:%02d",ett/3600, 
(ett%3600)/60,  ett%60); 
m_ett  =  mess; 

est  =  POL_STATES  /  ((float)params.mum  +  (float)(params.iter+l)/ 
(float)m_maxiter)  *  (float)ett; 

sprintf  (mess,  "  Estimated  Time  :  %02d:%02d:%02d",  est/3600, 
(est%3600)/60,  est%60); 
m_est_time  =  mess; 

sprintf  (strl,  "Iteration  %d  diff  =  %f\r\n",  params.iter+-l,  params.dif^; 
m_Status_Edit  +=  strl ; 

UpdateData  (FALSE); 

update_status_scroll  (); . 

return  (0); 

case  WM_RECON_DONE ; 


//  Write  results  to  log  file 

// 

:^rintf  (log,  "Iteration  %d  diff  =  %f\r\n",  params.iterf  1,  params.diff); 

for  (i=0;  i<params.zsize;  i-H-)  { 

l^rintf  (log,  "wavelength  =  %d\r\n  ",  lmiat[i*params.N/ 
params.zsize].wave); 
for  (j=0;  j<params.xsize;  j++) 

^rintf  (log,  "%10d  ",  limat[j].xpos); 

Q)rintf  (log,  "W); 

for  (j=0;  j<params.ysize;  j-H-)  { 

^rintf  (log,  "y=%3d  ",  hmat[j*params.xsize].ypos); 

for  (n=0;  n<params.xsize;  n-H-) . 

^rintf  (log,  "%10.7f  ",  finat[n+j*params.xsize+ 
i*params.xsize*params.ysize]); 
fyrintf  (log,  "\r\n"); 

} 

} 

^rintf  (log,  "\r\n"); 

ffiush  (log); 


//  Store  reconstruction  results 

// 

i  =  params.mum; 

rm[i]  =  (double  *)calloc((imsigned)params.N,  sizeof(double)); 
^  =  rm[i]; 

for  (m=0;  m<params.N;  m-H-)  { 

*(^+m)  =  finat[m]; 

j  =  (hmat[m].wave  -  m_WStart_Edit)  /  m_WInc_Edit; 
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//  next  statement  causes  maximum  to  be  calculated  globally  for  all 

wavelengths 
♦  * 


j=0; 

//  if  (*(^+m)  >  maxrec[j]  &&  hmat[m].wave  =  (m_WStart_Edit  + 

m_WSteps_Edit/2  *m_WInc_Edit)) 

//  if  (*(Q)+m)  >  maxrec[j]  &&  hmat[m].wave  >  460  && 

hmat[m].wave  <  720) 

if  (*(:^+m)  >  maxrec[j]) 
maxrec[j]  =  *(^+m); 

} 

Qjrintf  (log,  "%f  Scale  Factor\r\n",  maxrec[0]); 
for  (j=0;  j<params.N;  j-H-) 
free  (hmat[j].elem); 


//  Write  message  in  status  window 

// 

sprintf  (strl,  "Reconstruction  Finished\r\n\r\n\r\n"); 
m_Status_Edit  +=  strl; 

UpdateData  (FALSE); 
update_status_scroll  (); 

if  (params.mum  <  (POL  STATES-l))  { 

//  Start  next  reconstruction 

// 

params.mum  +=  1 ; 

SendMessage  (WM_START_RECON,  0,  0  ); 

} 

else  { 


//  Scale  reconstmction  results 

// 

for  (i=0;  i<POL_STATES;  i++)  { 

^  =  rm[i]; 

for  (m=0;  m<params.N;  m-H-)  { 

j  =  (hmat[m].wave  -  m  WStart  Edit)  /  m_WInc_Edit; 

// 

^H^itt********************************************************* 

I  I  next  statement  causes  scaling  to  be  performed  the  same  for 

all  wavelengths 


*(^+m)  =  (*(^+m))  *  (1.0/maxrec[j]); 

} 
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//  Calculate  stokes  vectors 

// 

sprintf  (base,  "Calculating  stokes  vectors\r\n\r\n"); 
m_Status_Edit  4=  base; 

UpdateData  (FALSE); 
update_status_scroll  0; 
stokes  0; 

sprintf  (base,  "Calculation  of  stokes  vectors  for  %s  complete\r\n", 

img_fii); 

m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 
fclose  (out); 
fclose  (log); 

//  If  more  than  one  file  was  specified,  process  the  next  one 

// 

if(file_off>0)  { 

sprintf  (fiiame,  "%s",  &ung_name[file_off]); 

m_imgfile  =  outdir; 

m_imgfile  +=  "\\"; 

m_ungfile  +=  fiiame; 

nchars  =  stolen  (fiiame); 

ext  ofif  =  stolen(out_dir)  +  1  +  nchars  -  3; 

file_off  =  file_off  +  nchars  +  1 ; 

if  (nchars  >  0)  { 

stocpy  (outname,  m_imgfile); 
out_name[ext_off]  =  't'; 
out_name[ext_off+l]  =  'g'; 
out_name[ext_off+2]  =  'a'; 
out_name[ext_off+3]  =  '\0'; 
moutfile  =  out_name; 

UpdateData  (FALSE); 

OnOK  0; 

UpdateWindow  0; 
stocpy  (logfii,  mimgfile); 
log_fii[ext_ofI]  =  T; 
log_fii[ext_off+l]  =  'o'; 
log_fii[ext_ofF+2]  =  'g'; 
log_fii[ext_off+3]  =  '\0'; 

OnGoButton  0; 
return  (0); 

} 

} 

//  re-enable  interface  for  a  new  calculation 

// 

MessageBox  ("Done",  "Calc  stokes",  MB_OK); 
m_maxiter_con.SetReadOnly  (FALSE); 
m_xres_edit_con.SetReadC)nly  (FALSE); 
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m_yTes_edit_con.SetReadOnly  (FALSE); 
m_xres_con.SetRange  (0, 100); 
m_3Tes_con.SetRange  (0,  100); 
m_maxiter_spin.SetRange  (1, 100); 
m_tol_con.SetReadOnly  (FALSE); 
m  base  con.SetReadOnly  (FALSE); 
m_outfile_con.SetReadOnly  (FALSE); 
m_imgfile_con.SetReadOnly  (FALSE); 
ni_winvfile_con.SetReadOnly  (FALSE); 
msOcon.SetReadOnly  (FALSE); 

} 

return  (0); 

} 

return  CDialog::WindowProc(message,  wParam,  IParam); 


void  CReconstructionDlg: :  OnCancelButton() 

{ 

int  iresult; 

iresult  =  MessageBox  ("Cancel  Reconstruction?",  "Confirm",  MB  YESNO); 

if  (iresult  ==  ID  YES)  { 
params.bcancel  =  TRUE; 
mmaxitercon.SetReadOnly  (FALSE); 
m_xres_edit_con.SetRead0^y  (FALSE); 
m_yres_edit_con.SetReadOnly  (FALSE); 
m_xres_con.SetRange  (0,  100); 
m_yres_con.SetRange  (0,  100); 
m_maxiter_spin.SetRange  (1,  100); 
m_tol_con.SetReadOnly  (FALSE); 
m_base_con.SetReadOnly  (FALSE); 
m  outfile  con.SetReadOnly  (FALSE); 
m_imgfile_con.SetReadOnly  (FALSE); 
mwinvfilecon.SetReadOnly  (FALSE); 
m_sO_con.SetReadOnly  (FALSE); 
fclose  (out); 
fclose  (log); 

} 

} 


void  CReconstructionDlg:  :OnImgbrowseButton() 

{ 

int  iresult; 
int  ext  off; 
int  i; 

char  fiiame[100]; 
char  dir[200]; 
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char  mess[500]; 
int  nchars; 

ofiil.lStructSize  =  sizeof  (OPENFILENAME); 
ofiil  .hlnstance  =  NULL; 
ofiil  .hwndOwner  =  NULL; 

ofiil. IpstrFilter  =  "CUSP  image  files  (*.bct)\0*.bct\0All  Files 
(*.*)\0*.*\0\0"; 

ofiil  .IpstrCustomFilter  =  NULL; 

ofiil  .nMaxCustFilter  =  0; 

ofiil. nFilterIndex  =  1; 

ofiil  .IpstrDefExt  =  "bet"; 

ofiil  .ICustData  =  NULL; 

ofiil  .IpfiiHook  =  NULL; 

ofiil. IpTemplateName  =  NULL; 

ofiil  .IpstrFile  =  imgjiame; 

ofiil  .nMaxFile  =  500; 

ofiil  .IpstrFileTitle  =  mig_title; 

ofiil  .nMaxFileTitle  =  99; 

ofiil. lpstrImtiaIDir=  "WctispWdata"; 

ofiil  .IpstrTitle  =  "Open  CTISP  Image  File"; 

ofiil  .Flags  =  OFN_FILEMUSTEXIST  1  OFN_ALLOWMULTISELECT  | 
OFN_EXPLORER; 
img_name[0]  =  '\0'; 
iresult  =  GetOpenFileName  (&ofiil); 
if  (iresult)  { 

ext_off  =  ofiil. nFileExtension; 
if  (ext_off  >  0){ 

m_imgfile  =  img_name; 
file_off=0; 

} 

else  { 

file_off  =  ofiil. nFileOffset; 

sprintf  (out_dir,  "%s",  img_name); 

sprintf  (fiiame,  "%s",  &img_name[file_off]); 

m_imgfile  =  out_dir; 

m_imgfile+="\\"; 

m_imgfile  +=  fiiame; 

nchars  =  strlen  (fiiame); 

ext_off  =  file_off  +  nchars  -  3; 

file_off  =  file_off  +  nchars  +  1 ; 

} 

strepy  (out_name,  m_imgfile); 
out_name[ext_off]  =  Y; 
out_name[ext_off+l]  =  'g'; 
out_name[ext_off+2]  =  'a'; 
out_name[ext_off+3]  =  '\0'; 
m_outfile  =  out_name; 

UpdateData  (FALSE); 

OnOKO; 
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UpdateWindow  (); 
strcpy  (log_fii,  m_imgfile); 
log_fii[ext_off]  =  T; 
log_fii[ext_off+l]  =  'o'; 
log_fiQ[ext_off+2]  =  'g'; 
log_fii[ext_off+3]  =  '\0'; 
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reconjmage.cpp 

#mclude  <math.h> 

#include  <string.h> 

#mclude  <stdio.h> 

#include  <stdlib.h> 

#iiiclude  "stdafs-h" 

#include  "reconstruction.h" 
#include  ''reconstructionDlg.h" 
#include  "recon.h" 

struct  pai:am_st  params; 

intN; 

int  npol; 

hcol  hmat[MAXN]; 
brow  hmatrow[MAXPIX]; 
double  finat[MAXN]; 
double  suml[MAXN]; 
int  *gniat; 
intM; 


UINT  recon_image  (LPVOID  paraml) 

{ 

int  i,  n,  m,  nn; 
double  quotl; 

double  gm,  hfin,  quot2,  suni2; 
double  newfinat[MAXN]; 
arr  elem  *elein,  *elem2; 
int  nextelem[MAXN]; 

int  temp_index|MAXN],  temp_value[MAXN]; 
int  count; 
char  mess[200]; 
intnutn; 

int  mx,  hist[1001]; 

FILE  *in,  *out; 
int  ml; 


//  Initialize  F  matrix 

// 

params.N  =  N; 
params.npol=  1; 
for  (n=0;  n<N;  n++) 
fniat[n]  =  1.0; 


if  (params.emflags[params.mum]  =  1)  { 
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//read  data 

if  ((in  =  fopen  (params.emfiles[params.mum],  "rb"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  params.emfiles[params.mum]); 
MessageBox  (NULL,  mess,  "calc_stokes",  MB_OK); 
return  (-1); 

} 

fread  (&ml,  4, 1,  in); 
if  (ml  !=M)  { 

sprintf  (mess,  "Error:  ml=%d  M=%d",  ml,  M); 

MessageBox  (NULL,  mess,  "calc  stokes",  MB  OK); 
return  (-1); 

} 

for  (m=0;  m<M;  m-H-)  { 

fread  (&hmatrow[m].num,  4, 1,  in); 
if  (hmatrow[m].num  >  0)  { 

hmatrow[m].eIem  =  (arr_elem  *)calloc(hmatrow[m].num, 
sizeof(arr_elem)); 

if  (hmatrow[m].elem  =  NULL)  { 

MessageBox  (NULL,  "Can't  allocate  memory",  "Recon", 

MB_OK); 

exit  (-1); 

} 

fread  (hmatrow[m].elem,  sizeof(arr_elem),  hmatrow[m].num,  in); 

} 

} 

fclose  (in); 


} 

else  { 

//  Generate  H  matrix  stored  by  rows 
// 

for  (n=0;  n<N;  n-H-) 
nextelem[n]  =  0; 
for  (m=0;  m<M;  m-H-)  { 
num  =  0; 

for  (n=0;  n<N;  n-H^)  { 
temp_index[n]  =  0; 
temp_value[n]  =  0; 
elem  =  hmat[n].elem  -f  nextelem[n]; 
if  (nextelem[n]  <  hmat[n].num  &&  elem->index  =  m)  { 
temp_index[num]  =  n; 
temp_value[num]  =  elem->value; 
nextelem[n]-H-; 
num-H-; 

} 

} 

hmatrow[m].num  =  num; 
if  (num  >  0)  { 

hmatrow[m].elem  =  (arr  elem  *)calloc(num,  sizeof(arr_elem)); 
if  (hmatrow[m].elem  =  NULL)  { 
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MessageBox  (NULL,  "Can't  allocate  memory",  "Recon", 

MB_OK); 

exit  (-1); 

} 

elem  =  hmatrow[m].elem; 
for  (i=0;  i<num;  i-H-)  { 

elem->index  =  temp_index[i]; 
elem->value  =  temp_value[i]; 
elem-H-; 

} 

} 

} 

//  write  data 

if  ((out  =  fopen  (params.emfiles[params.mum],  "wb"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  params.emfiles[params.mumi); 
MessageBox  (NULL,  mess,  "calc_stokes",  MB_OK); 
return  (-1); 

} 

fwrite  (&m,  4, 1,  out); 
for  (m=0;  m<M;  m-H-)  { 

fwrite  (&hmatrow[m].num,  4, 1,  out); 
if  (hmatrow[m].num  >  0) 

fwrite  (hmatrow[m].elem,  sizeof(arr_elem),  limatrow[m].num, 

out); 

} 

params.emflags[params.mum]  =  1; 
fclose  (out); 
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//  Calculate  Suml 

// 

for  (n=0;  n<N;  n-H-)  { 
suml[n]  =  0; 
elem  =  hmat[n].elem; 
if  (lmiat[n].num  >  20) 

for  (m=0;  m<hmat[n].num;  m++)  { 
suml[n]  +=  elem->value; 
elem++; 

} 

} 


for  (i=0;  i<params.maxiter;  i-H-)  { 
time  (&params.iter_time); 
params.iter  =  i; 


//  Perform  an  iteration 

// 
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for  (n=0;  n<N;  n-H-)  { 
if  (suml  [n]  >  0) 

quotl  =  finat[n]  /  suml  [n]; 
else 

quotl  =  0.0; 

s;im2  =  0.0; 
elem  =  lunat[n].elem; 
for  (m=0;  m<lunat[n].num;  m-H-)  { 
gm  =  *(gmat  +  elem->mdex); 
hfin  =  0.0; 

elem2  =  hmatrow[elem->index].elem; 
for  (nn=0;  nn<hmatrow[elem->mdex].num;  nn-H-)  { 
hfin  +=  elem2->value  *  finat[elem2->index]; 
elem2++; 

} 

if  (hfin  >0) 

quot2  =  gm  /  hfin; 
else 

quot2  =  0; 

sum2  +=  quot2  *  elem->value; 
elem-H-; 

} 

newfinat[n]  =  quotl  *  sum2; 
params.n  =  n; 

SendMessage  (params.hwnd,  WM_ELEM_DONE,  0,  0  ); 

//  Check  for  premature  cancel  by  user 

// 

if  (params.bcancel) 

AficEndThread  (-1); 

} 

//  Calculate  change  from  previous  iteration 

// 

params.diff  =  0.0; 
for  (n=0;  n<N;  n-H-)  { 

params.diff  +=  fabs(newfinat[n]-finat[n]); 
finat[n]  =  ne\vfinat[n]; 

} 

params.diff  =  params.diff  /  N; 

SendMessage  (params.hwnd,  WM_ITER_DONE,  0,  0 ); 

//  See  if  difference  is  small  enough 

// 

if  (params.diff  <  params.tolerance)  . 

break; 

} 
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free  (gmat); 

SendMessage  (params.hwnd,  WM_RECON_DONE,  0,  0  ); 
return  (0); 


void  getrow  (int  *hrow,  int  index) 

{ 

int  n,  m; 
arrelem  *elem; 

for  (n=0;  n<N;  n-H-)  { 
elem  =  limat[n].elem; 
for  (m=0;  m<hniat[n].nuin;  m-H-)  { 
if  (elem->index  =  index)  { 

*(hrow+n)  =  elem->value; 
break; 

} 

else  if  (elem->index  >  index)  { 

*(hrow+n)  =  0; 
break; 

} 

elem-H-; 

} 

} 

} 

int  CReconstructionDlg::read_gmat  (char  *filename,  int  filter) 

{ 

FILE  *in; 
char  mess[100]; 
inti; 

int  exppSTFILTERS]; 
int  img_order[NFILTERS]; 
int  xpix,  ypix; 

unsigned  short  header[13],  lbuf[1024]; 

int  val; 

intnum; 

intj,k; 

//  Open  file 

// 

if  ((in  =  fopen(filename,  "rb"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  filename); 
MessageBox  (mess,  "calc  stokes",  MB  OK); 
return  (-1); 

} 

//  Read  header 

// 

fread  (header,  2, 13,  in); 
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num  =  header[0]; 
if(num!=NFILTERS)  { 

MessageBox  ("Nximber  of  images  is  incorrect", 

"calc_stokes",  MB_OK); 
return  (-1); 

} 

xpix  =  header[l]; 
ypix  =  header[2]; 
if  (xpix*ypix  !=  M)  { 

MessageBox  ("Size  of  images  does  not  match  cal  file", 
"calc_stokes",  MB_OK); 
return  (-1); 

} 

for  (i=0;  i<num;  i-H-)  { 

img_order[i]  =  header[i+3]; 
exp[i]  =  header[i+3+num]; 

//  exp[i]  =  6000; 

} 

img  exp  =  (double)exp[filter]  /  10000.0; 

sprintf  (mess,  "image  exposure  time  =  %f\r\n",  img  exp); 

m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  Allocate  memory 

// 

gmat  =  (int  *)calloc(M,  sizeof(int)); 
if  (gmat  =  NULL)  { 

sprintf  (mess,  "Can't  allocate  memory"); 

MessageBox  (mess,  "calc  winv",  MB  OK); 
return  (-1); 

} 

//  Read  image 

fseek  (in,  sizeof(unsigned  short)*M*img_order[filter],  SEEK  CUR); 
i  =  0; 

fora=0;j<ypix;j++){ 
fread(lbuf,  2,  xpix,  in); 
for  (1<?=0;  k<xpix;  k-H-)  { 
val  =  lbuf[k]  /  imgexp; 
gmat[i]  =  val; 

i++; 

} 

} 

fclose  (in); 
return  (0); 


int  CReconstructionDlg::  read  hcol  (char  *filename,  int  filter,  int  pol) 
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FILE  *m; 

char  mess[200]; 

intnum; 

arr_elem  *elem; 

intij,k,l,  n; 

int  xpos,  ypos,  pstate,  wv; 

int  mdex[1000],  value[1000]; 

float  exp_time; 

intind; 

int  xpix,  ypix; 

int  nfilters,  iflt; 

intzz; 

int  xspace,  yspace; 
int  kk,  11; 
int  xbin,  ybin; 
int  11, 12,  el,  e2; 
intii; 

float  spectral_cal[16]={0.20598345,  0.38088572,  0.53272229,  0.55508733, 
0.59775602,  0.69677914, 0.69930908,  0.72039839, 
0.71347748,  0.72596980,  0.73453080,  0.75129487, 
0.79075102,  0.82374279, 0.62879126, 0.50508748}; 


//  Open  file 

// 

if  ((in  =  fopen(filename,  "r"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  filename); 

MessageBox  (mess,  "read_hcol",  MB_OK); 
return  (-1); 

} 

//  Read  header 

// 

fscanf  (in,  "%d  %d",  &xpix,  &ypix); 
fscanf  (in,  "%d  %d",  &xbin,  &ybin); 
fscanf  (in,  "%d  %d  %d",  &m_XStart_Edit,  &m_XInc_Edit, 
&m_XSteps_Edit); 

fscanf  (in,  "%d  %d  %d",  &m_YStart_Edit,  &m_YInc_Edit, 
&m_YSteps_Edit); 

fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &m_WStart_Edit,  &m_WInc_Edit, 
&m_WSteps_Edit); 

fscanf  (in,  "%d",  &npol); 
fscanf  (in,  "%d",  &N); 

M  =  xpix  *  ypix; 

if  ((m_XSteps_Edit  !=  1)  ||  (m_YSteps_Edit  !=  1))  { 

MessageBox  ("cal  file  has  multiple  positions",  "Calc_stokes",  MB_OK); 
return  (-1); 

} 
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//  Determine  output  cube  parameters 

// 

xspace  =  (int)((float)FOV_SIZE  /  (float)m_xres  +  0.5); 

yspace  =  (mtX(float)FOV_SIZE  /  (float)m_yTes  +  0.5); 

params.xmin  =  MINXFOV  +  (int)^OV_SIZE-(m_xres-l)*xspace)/2; 

params.ymin  =  MINYFOV  +  (int)(FOV_SIZE-(m_yres-l)*yspacey2; 

if  (m_xres  =  1)  params.xmin  =  m_XStart_Edit; 

if  (mjyres  =  1)  params.ymin  =  m_YStart_Edit; 

params.xmax  =  params.xmin  +  (m_xres-l)*xspace; 

params.ymax  =  params.ymin  +  (mjyTes-l)*yspace; 

params.xsize  =  m_xres; 

params.ysize  =  m_yres; 

params.zsize  =  m_WSteps_Edit; 

params.xsp  =  xspace; 

params.ysp  =  yspace; 

//  Read  calibration  data 
// 

zz  =  0; 

for(j=0;j<N;j++)  { 

fscanf  (in,  "%d  %d  %d  %d  %d  %d  %f' ,  &xpos,  &ypos,  &iflt,  &pstate, 
«&wv,  &num,  &exp_time); 
if  ((iflt  =  filter)  &&  (pstate  =  pol))  { 
for  (i=0;  i<num;  1++)  { 

fecanf  (in,  "%d  %d",  &index[i],  &value[i]); 

value[i]  =  value[i]  /  spectral_cal[(wv-440y20]  /  exp_time; 

} 

n  =  zz  *  params.xsize  *  params.ysize; 
for  (k=0;  k<m_yres;  k-H-)  { 
for  (1=0;  l<m_xres;  1++)  { 
hmat[n].num  =  num; 
hmat[n].xpos  =  params.xmin  +  l*xspace; 
hmat[n].ypos  =  params.ymin  +  k*yspace; 
hmat[n]  .pstate  =  pstate; 
hmat[n].wave  =  wv; 
hmat[n].exp_time  =  exp_time; 

hmat[n].elem  =  (arr_elem  *)calloc(num,  sizeof(arr_elem)); 
if  (hmat[n].elem  =  NULL)  { 

MessageBox  ("Can't  allocate  memory",  "read_hcol", 

MB_OK); 

return  (-1); 

} 

if  ((hmat[n].ypos-ypos)  >=  0) 

kk  =  (int)((float)(hmat[n].ypos-ypos)  /  (float)ybin  +  0.5); 
else 

kk  =  (int)((float)(hmat[n].ypos-ypos)  /  (float)ybin  -  0.5); 
if  ((hmat[n].xpos-xpos)  >=  0) 

11  =  (int)((float)(hmat[n].xpos-xpos)  /  (float)xbin  +  0.5); 
else 

11  =  (int)((float)(hmat[n].xpos-xpos)  /  (float)xbin  -  0.5); 
ii=0; 
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for  (i=0;  i<num;  i-H-)  { 

ind  =  iadex[i]  +  kk*xpix  + 11; 

11  =  index[i]/xpix; 

12  =  ind/xpix; 

el  =  indexp]  %  xpix; 
e2  =  ind  %  xpix; 

if  (ind  >=  0  &&  ind  <  M  &&  (11+kk  =  12))  { 
elem  =  lmiat[n].elem  +  ii; 
elem->index  =  ind; 
elem->value  =  valuep]; 
ii-H-; 

} 

else  { 

lmiat[n].nuni— ; 

} 

} 

n-H-; 

} 

} 

ZZ-H-; 

} 


else 

for  (i=0;  i<niim;  i-H-) 

fscanf  (in,  "%d  %d",  &index,  &value); 

} 

N  =  params.xsize  *  params.ysize  *  params.zsize; 
fclose  (in); 
return  (0); 


// 

//  stats  -  calculates  stats  for  an  image 

// 

void  stats  (unsigned  short  *buffer,  struct  stats_st  *image_stats) 

{ 

intk; 

float  BufferSum; 
float  avg; 

unsigned  short  *buff; 
int  imin,  imax; 


unax=*buffer; 
imin=*buffer; 
buff  =  buffer; 
BufferSum  =  0; 
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for  (k=0;k<M;k-H-)  { 

BufferSiun  +=  *buff; 
if  (*buff>imax)  imax=*buff; 
if  ((*buff<iiiun)  &&  (*buff  >  0))  imin=*buff; 
buff-H-; 

} 

avg  =  BufferSum/M; 
image_stats->inin  =  imin; 
image_stats->max  =  imax; 
image_stats->mean  =  avg; 


//  zero  -  zeroes  all  pixel  values  less  than  a  threshold 

// 

int  zero  (unsigned  short  *buffer,  float  threshold) 

{ 

unsigned  short  *buff; 
int  k; 
int  num; 

num  =  0; 

buff  =  buffer; 

for  (k=0;k<M;k-H-)  { 

if  ((float)*buff  <  threshold) 

*buff=0; 

else 

niun-H-; 

buff-H-; 

} 

return  (nxun); 


} 


matrixjnv.cpp 

#include  <math.h> 
#include  <stdlib.h> 

#defme  N  4 
#defme  TINY  l.Oe-20; 


void  ludcmp  (float  **a,  int  n,  int  *indx,  float  *d) 

{ 

int  i,  imax,  j,  k; 

float  big,  dum,  sum,  temp; 

float  w[N]; 

*d=  1.0; 

for  (i=0;  i<n;  i-H-)  { 
big  =  0.0; 
for(j=0;j<n;j-l-+) 

if  ((temp=fabs(a[i][j]))  >  big)  big  =  temp; 
if  (big  =  0.0)  { 
exit  (-1); 

} 

w[i]  =  1.0/big; 


for(j=0;j<n;j++)  { 

for  (i=0;  i<j;  i-H-)  { 
sum  =  a[i][j]; 
for  (k^O;  k<i;  k-H-) 
sum  -=  a[i][k]*aPc][j]; 
a[i][j]  =  sum; 

} 

big  =  0.0; 

for  (i=j;  i<n;  i-H-)  { 
sum  =  a[i][j]; 
for  (k=0;  k<j;  k-H-) 
sum  -=  a[i][k]*a[k][j]; 
a[i][j]  =  sum; 

if  ((dum=w[i]*fabs(sum))  >=  big)  { 
big  =  dum; 
imax  =  i; 

} 

} 

if  (j  !=  imax)  { 

for  (k=0;  k<n;  k-H-)  { 
dum  =  a[imax][k]; 
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a[imax][k]  =  a[j][k]; 
a[j][k]  =  dum; 


} 

*d  =  -(*d); 
w[imax]  =  w[j]; 

} 

indx[j]  =  imax; 
if(aD]D]  =  0.0) 
aD]D]  =  TINY; 
ifO  !=(n-l))  { 

dum=  1.0/(a[j][j]); 
for  (i=j+l;  i<n;  i++) 
a[i]D]  *=  dum; 

} 

} 

//  j&’ee_vector  (w,  1,  n); 

} 


void  lubksb  (float  **a,  int  n,  int  *indx,  float  *b) 

{ 

inti,  ii=-l,ip,j; 
float  sum; 

for  (i=0;  i<n;  i++)  { 
ip  =  mdx[i]; 
sum  =  b[ip]; 
b[ip]=b[i]; 
if(ii>=0) 

for(j=ii;j<=i-l;j-H-) 
sum  -=  a[i][j]*b[j]; 
else  if  (sum) 
ii  =  i; 

b[i]  =  sum; 

} 

for  (i=n-l;  i>=0;  i— )  { 
sum  =  b[i]; 
for(j=i+l;j<n;j++) 
sum  -=  a[i]0]*b[j]; 
b[i]  =  sum/a[i][i]; 

} 

} 


void  matrix_mult  (float  **a,  float  **b,  float  **c,  int  m,  int  n,  int  r) 

{ 

inti,j,k; 
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float  Slim; 

for  (i=0;  i<m;  i-H-)  { 
for  (k=0;  k<r;  k-H-)  { 
sum  =  0.0; 
for(j=0;j<n;j-H-) 

sum -H=  a[i][j]  *  b[j][k]; 
c[i]Pc]  =  sum; 

} 

} 
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reconstruction.h 


//  reconstruction.h  :  main  header  file  for  the  RECONSTRUCTION  application 

// 

#if 

!  defined(AFX_RECONSTRUCTION_H_Al  B2  A085_98 1  E_1 1 D 1  _8 1  D0_0000 

C0A9797 1_INCLUDED J 

#define 

AFX_RECONSTRUCTION_H_A1B2A085_981E_11D1_81DO_OOOOCOA979 

71_INCLUDED_ 

#if_MSC_VER>=1000 
#pragma  once 

#endif//_MSC_VER>=  1000 
#ifiidef_AFXWIN_H_ 

#error  include  'stdafic.h'  before  including  this  file  for  PCH 
#endif 

#include  "resource.h"  //  main  symbols 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

I  I  CReconstructionApp: 

//  See  reconstruction.cpp  for  the  implementation  of  this  class 

// 

class  CReconstructionApp  :  public  CWinApp 

{ 

public; 

CReconstructionAppO; 

//  Overrides 

//  ClassWizard  generated  virtual  fimction  overrides 
//  {  {AFX_VIRTUAL(CReconstructionApp) 
public: 

virtual  BOOL  InitlnstanceQ; 

//}}AFX_VIRTUAL 

//  Implementation 

//{  {AFX_MSG(CReconstructionApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  functions  here. 

//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP() 

}; 
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Illllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_RECONSTRUCTION_H_AlB2A085_981E_llDl_81D0_0000 

C0A97971_INCLUDEDJ 
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reconstructionDIg.h 

//  reconstructionDIg.h  :  header  file 

// 

#if 

!defined(AFX_RECONSTRUCTIONDLG_H_AlB2A087_981E_llDl_81DO_ 

0000C0A97971_INCLUDEDJ 

#define 

AFX_RECONSTRUCTIONDLG_H_A1B2A087_981E_11D1_81DO_OOOOCO 

A97971_INCLUDED_ 

#if  _MSC_VER  >=  1000 
#pragma  once 

#endif //  _MSC_VER  >=  1000 

#define  POL_STATES  4 

#defineNFILTERS5 

//  NEXT  VALUES  WERE  450  AND  461 

#define  MINXFOV  444 

#define  MINYFOV  458 

#define  FOV_SIZE  96 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

1 1  CReconstructionDlg  dialog 

class  CReconstructionDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CReconstructionDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

// { { AFX_DATA(CReconstructionDlg) 

enum  { IDD  =  IDD_RECONSTRUCTION_DIALOG  }; 

CEdit  msOcon; 

CSpinButtonCtrl  m_yres_con; 

CEdit  m_yres_edit_con; 

CEdit  m_xres_edit_con; 

CSpinButtonCtrl  m_xres_con; 

CEdit  mwinvfilecon; 

CEdit  mimgfilecon; 

CEdit  moutfilecon; 

CEdit  m_tol_con; 

CEdit  mbasecon; 

CEdit  m_maxiter_con; 

CProgressCtrl  m_prog_con; 

CSpinButtonCtrl  m_maxiter_spin; 

CEdit  ni_Status_Con; 
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CString  m_Status_Edit; 

CString  m_Base_Edit; 
int  in_XInc_Edit; 
int  m_XStart_Edit; 
int  m_XSteps_Edit; 
int  m_YInc_Edit; 
int  m_YStart_Edit; 
int  m_YSteps_Edit; 
int  m_WStart_Edit; 
int  m_WSteps_Edit; 
int  m_WInc_Edit; 
int  mmaxiter; 
float  m  tol; 

CString  m_prog_text; 

CString  m_eti; 

CString  m_ett; 

CString  m_est_tmie; 

CString  m_outfile; 

CString  m  imgfile; 

CString  m_wmvfile; 

UINT  m_xres; 

UINT  mjyres; 
float  m_sO_thresli; 

//}}AFX_DATA 

//  User  defined  functions  and  data 

// 

int  read_licol  (char  *,  mt,  int); 
int  read_gmat  (char  *,  int); 
void  update_status_scroll  (); 
void  OnOK  Q; 
void  stokes  (); 

OPENFILENAME  ofiil,  ofii2; 
char  cal_nanie[500],  cal_title[100]; 
char  out_name[500]; 
char  img_name[500],  img_title[100]; 
char  winv_nanie[500]; 

FILE  *out,  *inv,  *log,  *log2; 
double  *rm[POL_STATES]; 
float  img_exp; 
double  maxrec[40]; 

char  out_fii[500],  cal_fii[500],  inv_fii[500],  img_fii[500],  log_fii[500]; 

int  file_off; 

char  out_dir[200]; 

// 

//  ClassWizard  generated  virtual  function  overrides 
//{  {AFX_VIRTUAL(CReconstructionDlg) 
protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV  support 
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virtual  LRESULT  WmdowProc(UINT  message,  WPARAM  wParam, 
LPAEAM  IParam); 

//}}AFX_VIRTUAL 

//  Implementation 

protected: 

HICON  mhicon; 

//  Generated  message  map  functions 
//{  {AFX_MSG(CReconstructionDlg) 
virtual  BOOL  OnInitDialogO; 

afe  msg  void  OnSysCommand(UINT  nID,  LPARAM  IParam); 

afemsg  void  OnPaint(); 

afemsg  HCURSOR  OnQueryDraglconQ; 

afe  msg  void  OnExitButtonQ; 

afe_msg  void  OnGoButtonQ; 

afe  msg  void  OnUpdateStatusBox(); 

afe  msg  void  OnClearstatusButtonQ; 

afe_msg  void  OnCalbrowseButton(); 

afe_msg  void  OnCancelButtonQ; 

afe  msg  void  OnlrngbrowseButtonQ; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{ {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_RECONSTRUCTIONDLG_H_AlB2A087_981E_llDl_81DO 
0000C0A9797 1_INCLUDED J 
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#define  WMJTER_DONE  (WM_APP  +  0) . 

#define  WM_RECON_DONE  (WM_APP  +  1) 
#defme  WM_ELEM_DONE  (WM_APP  +  2) 
#defme  WM_START_RECON  (WM_APP  +  3) 
#defmeMAXN  50000 
#define  MAXPIX  265000 
#define  IN_PROGRESS  1 
#defme  FINISHED  2 
#defme  ABORTED  3 

struct  paramst 

{ 

HWND  hwnd; 
int  mum; 
int  maxiter; 
float  tolerance; 
float  diff; 
int  n; 
int  N; 
int  npol; 
int  iter; 
int  xmin; 
int  xmax; 
int  ymin; 
int  ymax; 
int  xsize; 
int  ysize; 
int  zsize; 
int  xsp; 
int  ysp; 

char  emfiles[4][100]; 
int  emflags[4]; 

BOOL  bcancel; 
time_t  start_time; 
timet  iter_time; 

}; 


struct  stats_st  { 
int  min; 
int  max; 
float  mean; 

}; 


typedef  stmct 

{ 

int  index; 
int  value; 
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}  aiT_elem; 

typedef  struct 

{ 

intnum; 
int  xpos; 
int  ypos; 
int  pstate; 
int  wave; 
float  exp_time; 
arr_elem  *elem; 
}  hcol; 

typedef  struct 

{ 

int  num; 
arr  elem  *elem; 
}  hrow; 


//  Prototypes 

// 

void  stats  (unsigned  short  *,  struct  stats  st  *); 
int  zero  (unsigned  short  *,  float); 
void  getrow  (int  *,  int); 
extern  UINT  recon  image  (LPVOID); 
extern  UINT  mart  recon  (LPVOID); 
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matrix  inv.h 


extern  void  ludcmp  (float  **,  int,  int  *,  float  *); 

extern  void  lubksb  (float  **,  int,  int  *,  float  *); 

extern  void  matrix_mult  (float  **,  float  **,  float  **,  int,  int,  int); 
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StdAfx.h 


//  stdafx.h  :  include  file  for  standard  system  include  files, 

//  or  project  specific  include  files  that  are  used  frequently,  but 
//  are  changed  infrequently 
// 

#if 

!  defined(AFX_STDAFX_H_Al  B2  A089_98 1  E_1 1 D 1  _8 1  D0_0000C0A9797 1 _ 
_INCLUDED_) 

#define 

AFX_STDAFX_H_A1B2A089_981E_11D1_81D0_0000C0A97971_INCLU 

DED_ 

#if_MSC_VER>=1000 
#pragma  once 

#endif//_MSC_VER>=  1000 

#define  VC_EXTRALEAN...  //  Exclude  rarely-used  stuff  from  Windows  headers 

#include  <afx:win.h>  //  MFC  core  and  standard  components 
#include  <afxext.h>  //  MFC  extensions 
#include  <afxdisp.h>  //  MFC  OLE  automation  classes 
#ifhdef  _AFX_NO_AFXCMN_SUPPORT 

#include  <afxcmn.h>  . //  MFC  support  for  Windows  Common  Controls 

#endif //  _AFX_NO_AFXCMN_SUPPORT 


//{ {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_STDAFX_H_AlB2A089_981E_llDl_81D0_0000C0A97971 

.INCLUDED.) 
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Cal  Bin 


Files:  cal_biii.cpp 

cal_biiiDlg.cpp 
binning.cpp 
cal  _bin.h 
cal  _bmDlg.h 


cal_bin.cpp 

//  cal_bm.cpp  :  Defines  the  class  behaviors  for  the  application. 

// 

#mclude  "stdafe.h" 

#include  "cal_bin.h" 

#include  "cal_bmDlg.h" 

#ifdef_DEBUG 

#defme  new  DEBUG_NEW 

#undef'raiS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CCalbinApp 

BEGIN_MESSAGE_MAP(CCal_binApp,  CWinApp) 

//{  {AFX_MSG_MAP(CCal_binApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 
//}}AFX_MSG 

ON_COMMAND(ID_HELP,  CWinApp:  :OnHelp) 
END_MESSAGE_MAPO 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CCal_binApp  construction 

CCal_binApp:  :CCal_binAppO 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  Initinstance 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  The  one  and  only  CCalbinApp  object 

CCalbinApp  theApp; 
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IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CCal_binApp  initialization 

BOOL  CCal_binApp::InitInstanceO 

{ 

AfxEnableControlContainerO; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  should  remove  from  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef_AFXDLL 

EnableSdControlsQ;  . //  Call  this  when  using  MFC  in  a  shared  DLL 

#else 

EnableSdControlsStaticQ; . //  Call  this  when  linking  to  MFC  statically 

#endif 

CCaLbinDlg  dig; 
m_pMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModalQ; 
if  (nResponse  ==  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  IDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  application's  message  pump, 
return  FALSE; 
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cal_biiiDlg.cpp 


//  cal_binDlg.cpp  :  implementation  file 

// 

#mclude  "stdafe.h" 

#mclude  "cal_bm.li" 

#include  "cal_binDlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAboutDlgO; 

//  Dialog  Data 

//  {  { AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD_ABOlJTBOX  } ; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  fimction  overrides 

//{  {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{  {AFX_MSG(CAboutDlg) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 


CAboutDlg:  :CAboutDlgO  :  CDialog(CAboutDlg:  :IDD) 

{ 

//  {  { AFX_DATA_INIT(CAboutDlg) 
//}}AFX_DATA_INIT 


void  CAboutDlg:  :DoDataExchange(CDataExchange*  pDX) 

{ 
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CDialog:  :DoDataExchange(pDX); 
//{ {AFX_DATA_MAP(CAboutDlg) 
//}}AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{ {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CCal_binDlg  dialog 

CCal_binDlg:;CCal_bmDlg(CWnd*  pParent  /*=NULL*/) 

:  CDialog(CCal_binDlg::IDD,  pParent) 

{ 

//{ {AFX_DATA_INIT(CCal_bmDlg) 

m_calfile  =  _T(""); 

m_outfile  =  _T(""); 

m_xbin=  10; 

m_ybin=  10; 

m_Status_Edit  =  _T(""); 

m_thresh  =  1000; 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
mhicon  =  AfeGetApp()->LoadIcon(IDR_MAJNFRAME); 


void  CCal_binDlg::DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

//{ {AFX_DATA_MAP(CCal_binDlg) 

DDX_Control(pDX,  IDC_STATUS_BOX,  m  Status  Con); 
DDX_Control(pDX,  IDC_YBIN_SPIN,  m_ybm_con); 
DDX_Control(pDX,  IDC_XBIN_SPIN,  m_xbin_con); 
DDX_Text(pDX,  IDC_CALFILE_EDIT,  m_calfile); 
DDX_Text(pDX,  IDC_OUTFILE_EDIT,  m_outfile); 
DDX_Text(pDX,  IDC_XBIN_EDIT,  m_xbin); 
DDV_MmMaxUInt(pDX,  m_xbin,  2,  32); 

DDX_Text(pDX,  IDC_YBIN_EDIT,  m_ybin); 
DDV_MinMaxUInt(pDX,  m_ybin,  2,  32); 

DDX_Text(pDX,  IDC_STATUS_BOX,  m_Status_Edit); 
DDX_Text(pDX,  IDC_THRESH_BOX,  m_thresh); 

//}  }  AFX_DATA_MAP 

} 

BEGIN_MESSAGE_MAP(CCal_binDlg,  CDialog) 

//{ {AFX_MSG_MAP(CCal_binDlg) 
ON_WM_SYSCOMMAND0 
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ON_WM_PAINT() 

ON_WM_QUERYDRAGICON() 

ON_BN_CLICKED(IDC_CALBROWSE_BUTTON,OnCalbrowseButton) 

ON_BN_CLICKED(IDC_EXIT_BUTTON,OnExitButton) 

ON_BN_CLICKED(IDC_GO_BUTTON,OnGoButton) 

//}}AFX_MSG_MAP 

END_MESSAGE_MAPO 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CCal_birLDlg  message  handlers 

BOOL  CCal_binDlg::OnInitDialogO 

{ 

CDialog:  rOnlnitDialogO; 

//  Add  "About. . . "  menu  item  to  system  menu. 

//  IDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOUTBOX); 
ASSERT(IDM_ABOlJTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if(pSysMenu!=NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(lDS_ABOUTBOX); 
if  (!strAboutMenu.IsEmpty()) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STRING,  IDM_ABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 


SetIcon(m_hIcon,  TRUE); . //Set  big  icon 

SetIcon(m_hIcon,  FALSE); . //  Set  small  icon 


//  Set  limits  for  binning 
m_xbin_con.SeiRange  (2,  32); 
m_ybin_con.SetRange  (2,  32); 

return  TRUE;  //  return  TRUE  unless  you  set  the  focus  to  a  control 

} 

void  CCal_binDlg::OnSysCommand(U[NT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 
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CAboutDlg  dlgAbout; 
dlgAbout.DoModalO; 

} 

else 

{ 

CDialog::C)nSysCommand(nID,  IParam); 

} 

} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 
//  this  is  automatically  done  for  you  by  the  framework. 

void  CCal_bmDlg::OnPaint() 

{ 

if  (IsIconicQ) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WM_ICONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcO,  0); 

//  Center  icon  in  client  rectangle 

int  cxicon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect); 

int  X  =  (rect.WidthO  -  cxicon  +  1)  /  2; 

int  y  =  (rect.HeightO  -  cylcon  +  1)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  mhicon); 

} 

else 

{ 

CDialog:  ;C)nPaint(); 

} 

} 

//  The  system  calls  this  to  obtain  the  cursor  to  display  while  the  user  drags 
//  the  minimized  window. 

HCURSOR  CCalbinDlg:  :OnQueryDragIcon() 

{ 

return  (HCURSOR)  m_hIcon; 

} 

//  This  routine  gets  the  file  name  for  the  calibration  file.  The  same 
//  file  name  with  a  different  extension  (.bcl)  is  used  for  the  output 
//  file  by  default. 
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void  CCal_biiiDlg:  :OnCalbrowseButton() 

{ 

int  i,  ext_off; 

UpdateData  (TRUE); 

ofii2.1StructSize  =  sizeof  (OPENFILENAME); 
ofii2.hInstance  =  NULL; 
ofii2.hwndOwaer  =  NULL; 

ofii2.1pstrFilter  =  "Calibration  files  (*.cal)\0*.cal\0All  Files  (*.*)\0*.*\0\0"; 

ofii2.1pstrCustoniFilter  =  NULL; 

ofii2.nMaxCustFilter  =  0; 

ofii2.nFilterIndex  =  1; 

ofii2.1pstrDe£Ext  =  "cal"; 

ofii2.1CustData  =  NULL; 

ofii2.1pfiiHook  =  NULL; 

ofii2.1pTemplateName  =  NULL; 

ofii2.1pstrFile  =  calname; 

ofii2.nMaxFile  =  500; 

ofii2.1pstrFileTitle  =  cal  title; 

ofii2.nMaxFileTitle  =  99; 

ofii2.1pstrInitialDir  =  "WctispWdata"; 

ofii2.1pstrTitle  =  "Open  Calibration  File"; 

ofe2.Flags  =  OFN_FILEMUSTEXIST; 

cal_name[0]  =  '\0'; 

GetOpenFileName  (&ofiQ2); 
m_calfile  =  calname; 
ext_off  =  ofii2.nFileExtension; 
for  (i=0;  i<ext_off;  i-H-) 

out_name[i]  =  cal_name[i]; 
out_name[ext_off]  =  Ij'; 
out_name[ext_off+l]  =  'c'; 
out_name[ext_off+2]  =  T; 
out_name[ext_ofF+3]  =  '\0'; 
moutfile  =  out_name; 

UpdateData  (FALSE); 

OnOKO; 

UpdateWindow  (); 


//  This  routine  exits  the  program 
void  CCal_binDlg::OnExitButton0 
{ 

DestroyWindow  (); 
exit  (0); 

} 

//  This  routine  performs  binning  of  the  specified  calibration  file 
void  CCal_binDlg;:OnGoButton() 

{ 

char  fill  [100],  fii2[100]; 
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//  Get  parameters 
UpdateData  (TRUE); 

//  Make  sure  file  name  have  been  selected 
strcpy  (fill,  (LPCTSTR)m_calfile); 
if(fiil[0]  =  ’\0')  { 

MessageBox  ("No  Calibration  File  Selected",  "cal  bin",  MB_OK); 
return; 

} 

strcpy  (fii2,  (LPCTSTR)m_outfile); 
if  (fii2[0]  =  ’\0')  { 

MessageBox  ("No  Output  File  Selected",  "cal_bin",  MB  OK); 
return; 

} 

//  Perform  binning 

binning  (fill,  fi32,  m  xbin,  m_ybin); . 

} 

//  This  routine  replaces  the  default  action  for  the  dialog.  The  default  action, 
//  which  is  triggered  by  a  carriage  return,  is  to  exit  the  dialog, 
void  CCal_binDlg::OnOK  () 

{ 

return; 

} 

void  CCal_binDlg::update_status_scroll  () 

{ 

int  minscr,  maxscr; 


m_Status_Con.GetScrollRange  (SB  VERT,  &niinscr,  &maxscr); 
if  (maxscr  >11) 

m_Status_Con.LineScroll  (maxscr-11,  0); 

UpdateWindow  (); 
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binning.cpp 

#include  <stdio.h> 

#include  <stdlib.h> 

#include  "stdafe.h" 

#include  "cal_bm.h" 

#include  "cal_biiiDlg.h" 

#defme  MAXX  1040 
#defme  MAXY  1028 
#defmeMAXPTS  10000 
#defmeROI_LEFT15 
#defme  ROI_TOP  0 

unsigned  short  bufl  [MAXY][MAXX]; 

void  CCal_binDlg:;binning  (char  *infile,  char  *outfile,  int  xbin,  int  ybin) 

{ 

FILE  *in,  *out; 

int  i,  j,  k,  m,  kk,  mm; 

int  xp,  yp,  wv,  num; 

float  exp; 

int  index,  value; 

int  N,  row,  col,  npol; 

int  xstart,  xinc,  xsteps; 

int  ystart,  yinc,  ysteps; 

int  wstart,  wine,  wsteps; 

int  xpix,  ypix,  newxpix,  newypix; 

int  pol; 

char  mess[100]; 

int  val[MAXPTS],  ind[MAXPTS]; 
int  xoff,  yoff; 
int  nfilters,  iflt; 
int  ixbin,  iybin; 

//  Open  files 

// 

if((in=fopen(infile,  "r"))  =  NULL)  { 

MessageBox  ("Error  opening  calibration  file",  "cal_bia",  MB  OK); 
return; 

} 

if  ((out=fopen(outfile,  "w"))  =  NULL)  { 

MessageBox  ("Error  opening  output  file",  "cal  bin",  MB  OK); 
return; 

} 

//  Read  header 

// 

fscanf  (in,  "%d  %d",  &xpix,  &ypix); 
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if  (xpix  <=  0  II  xpix  >  MAXX  ||  ypix  <=  0  ||  ypix  >  MAXY)  { 

MessageBox  ("Image  dimensions  are  incorrect",  "Cal_bin",  MB_OK); 
return; 

} 

fscanf  (in,  "%d  %d",  &ixbin,  &iybin); 
fscanf  (in,  "%d  %d  %d",  &xstart,  &xinc,  &xsteps); 
fscanf  (in,  "%d  %d  %d",  &ystart,  &ymc,  &ysteps); 
fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &wstart,  &winc,  &wsteps); 
fscanf  (in,  "%d",  &npol); 
fscanf  (in,  "%d",  &N); 

//  Calculate  new  image  size  and  write  header 
xoff  =  (xstart-ROI_LEFT-(xbm/2))  %  xbin; 
yoff  =  (ystart-ROI_TOP-(ybin/2))  %  ybin; 
newxpix  =  (xpix-xoff)  /  xbin; 
newypix  =  (ypix-yoff)  /  ybin; 

sprintf  (mess,  "xoff=%d  yofil=%d  newxpix=%d  newypix=%d\r\n\r\n",  xoff, 
yoff,  newxpix,  newypix); 
mStatusEdit  +=  mess; 

UpdateData  (FALSE); 

:Q)rintf  (out,  "%d  %d\n",  newxpix,  newypix); 

^rintf  (out,  "%d  %d\n",  xbin,  ybin); 

fpiintf  (out,  "%d  %d  %d\n",  xstart,  xinc,  xsteps); 

Q)rintf  (out,  "%d  %d  %d\n",  ystart,  yinc,  ysteps); 

§)rintf  (out,  "%d\n",  nfilters); 

^rintf  (out,  "%d  %d  %d\n",  wstart,  wine,  wsteps); 

^rintf  (out,  "%d\n",  npol); 

^rintf  (out,  "%d\n",  N); 

for  (i=0;  i<N;  i-H-)  { 

//  Read  data  for  an  image 

fscanf  (in,"%d  %d  %d  %d  %d  %d  %f' ,  &xp,  &yp,  &iflt,  &pol,  &wv, 
&num,  &exp); 

sprintf  (mess,  "Input:  x=%d  y=%d  filter=%d  pol=%d  wv=%d 
npts=%d\r\n", 

xp,  yp,  iflt,  pol,  wv,  num); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  (); 

//  inflate  image 
for  (k=0;  k<MAXY;  k^) 
for  (m=0;  m<MAXX;  m-H-) 
bufl[k][m]  =  0; 
for  (j=0;  j<num; )++)  { 

fscanf  (in,  "%d  %d",  &index,  &value); 
row  =  index  /  xpix; 
col  =  index  %  xpix; 
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bufl[row][col]  =  value; 


} 

//  Perform  binning 
j=0; 

for  (k=0;  k<newypix;  k-H-)  { 
for  (m=0;  m<newxpix;  m-H-)  { 
value  =  0; 

for  (kk=0;  kk<ybin;  kk++) 

for  (inm=0;  mm<xbin;  mm++) 

value  +=  bufl  [k*ybin+kk+yoff][m*xbm+mm+xoff]; 

//  Store  only  bins  that  are  greater  than  threshold 
if  (value  >  m_thresh*xbin*ybin)  { 
val[j]  =  value  /  (xbin*ybin); 
ind[j]  =  k*newxpix  +  m; 

if(j>=MAXPTS){ 

MessageBox  ("Number  of  nonzero  bins  exceeded  limits", 
"Cal_bin",  MB_OK); 

OnExitButtonQ; 

} 

} 

} 

} 

//  Write  the  binned  image  out 
num=j; 

^rintf  (out,"%d  %d  %d  %d  %d  %d  %fai",  xp,  yp,  iflt,  pol,  wv,  num, 

exp); 

sprintf  (mess,  "Output:  x=%d  y=%d  filter=%d  pol=%d  wv=%d 
npts=%d\r\n", 

xp,  yp,  iflt,  pol,  wv,  num); 
m_Status_Edit  +=  mess; 

UpdateData  (FALSE); 
update_status_scroll  0; 
for  (j=0;  j<num;  j++) 

fprintf  (out,  "%d  %d\n",  md[j],  val[j]); 

} 

MessageBox  ("Done",  "caLbin",  MB_OK); 

} 
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cal  bin.h 


//  cal_bin.h  :  main  header  file  for  the  CAL_BIN  application 

// 

#if 

!defmed(AFX_CAL_BIN_H_6248D385_E9Bl_llDl_821D_0000C0A97971_ 

_INCLUDEDJ 

#define 

AFX_CAL_BIN_H_6248D385_E9B1_11D1_821D_0000C0A97971_INCLU 

DED_ 

#if_MSC_VER>=  1000 
#pragma  once 

#endif//_MSC_VER>=  1000 
#ifiidef_AFXWIN_H_ 

#error  include  'stdafe.h'  before  including  this  file  for  PCH 
#endif 

#mclude  "resource.h"  //  main  symbols 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

1 1  CCal_binApp: 

//  See  cal_bm.cpp  for  the  implementation  of  this  class 

// 

class  CCal_binApp  ;  public  CWinApp 

{ 

public: 

CCal_binApp(); 

//  Overrides 

//  ClassWizard  generated  virtual  function  overrides 

//{ {AFX_VIRTUAL(CCal_binApp) 

public: 

virtual  BOOL  Initlnstance(); 

//}}AFX_VIRTUAL 

//  Implementation 

//{ {AFX_MSG(CCal_binApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  fimctions  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP0 

}; 
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Illllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


//{  { AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_CAL_BIN_H_6248D385_E9Bl_llDl_821D_0000C0A97971 

_INCLUDEDJ 
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cal  _binDlg.li 

//  cal_binDlg.h  :  header  file 
// 

#if 

!defmed(AFX_CAL_BI]SrDLG_H_6248D387_E9Bl_llDl_821D_0000C0A97 

971_INCLUDEDJ 

#define 

AFX_CAL_BINDLG_H_6248D387_E9B  1_1 1D1_821D_0000C0A97971_IN 
CLUDED_ 

#if_MSC_VER>=  1000 
#pragma  once 

#endif//_MSC_VER>=  1000 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

//  CCalbinDlg  dialog 

class  CCal_binDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CCal_binDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

//{ {AFX_DATA(CCal_binDlg) 

enum  {  IDD  =  IDD_CAL_BIN_DIALOG  }; 

CEdit  m  Status  Con; 

CSpinButtonCtrl  m_ybin_con; 

CSpinButtonCtrl  mxbincon; 

CString  m  calfile; 

CString  m  outfile; 

UINT  mxbin; 

UINT  m_ybin; 

CString  m  Status  Edit; 

UINT  mthresh; 

//}}AFX_DATA 

//  User  data  and  functions 

char  cal_name[500],  cal_title[100]; 

char  out_name[500],  out_title[100]; 

OPENFILENAME  ofhl,  ofii2; 

void  binning  (char  *,  char  *,  int,  int); 
void  updatestatusscroll  0; 

//  ClassWizard  generated  virtual  function  overrides 
//{  {AFX_VIRTUAL(CCal_binDlg) 


B174 


Appendix  B  Code  Listing 


protected: 

ATTtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV  support 
//}}AFX_VIRTUAL 

//  Implementation 
protected: 

HICONm_hIcon; 

//  Generated  message  map  flmctions 
//{ {AFX_MSG(CCal_binDlg) 
virtual  BOOL  OnlniiDialogO; 

afe_msg  void  OnSysCommand(UINT  nID,  LPARAM  IParam); 

afe_msg  void  OnPaint(); 

afe_msg  HCURSOR  OnQueryDraglconQ; 

afe_msg  void  OnCalbrowseButton(); 

afe_msg  void  OnExitButtonQ; 

afe_msg  void  OnGoButton(); 

afe_msg  void  OnOK  0; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_CAL_BINDLG_H_6248D387_E9Bl_llDl_821D_0000C0A97 

971_INCLUDEDJ 
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Calc_Winv 

Files:  reconstruction.cpp 

reconstructionDlg.cpp 

recon_image.cpp 

matrix_inv.cpp 

reconstruction.h 

reconstructionDlg.h 

recoii.b 

matrix_inv.h 

StdAfx.h 

reconstruction.cpp 

//  reconstruction.cpp  :  Defines  the  class  behaviors  for  the  application. 

// 

#include  "stdafe.h" 

#include  "reconstruction.h" 

#include  "reconstructionDlg.h" 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  THIS_FILE[]  = _ ^FILE _ ; 

#endif 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CReconstructionApp 

BEGESl_MESSAGE_MAP(CReconstructionApp,  CWinApp) 

//{ {AFX_MSG_MAP(CReconstructionApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  mapping  macros  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code! 

//}}AFX_MSG 

ON_COMMAND(ID_HELP,  CWinApp:  :OnHelp) 
END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

I  I  CReconstructionApp  construction 

CReconstructionApp;:CReconstructionAppO 

{ 

//  TODO:  add  construction  code  here, 

//  Place  all  significant  initialization  in  Initinstance 

} 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 
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//  The  one  and  only  CReconstnictionApp  object 
CReconstructionApp  theApp; 


lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

//  CReconstructionApp  initialization 

BOOL  CReconstructionApp::Init[nstanceO 

{ 

AficEnableControlContainerQ; 

//  Standard  initialization 

//  If  you  are  not  using  these  features  and  wish  to  reduce  the  size 
//  of  your  final  executable,  you  should  remove  firom  the  following 
//  the  specific  initialization  routines  you  do  not  need. 

#ifdef_AFXDLL 

Enable3dControls();  . //  Call  this  when  using  MFC  in  a  shared  DLL 

#else 

Enable3dControlsStaticO; . //  Call  this  when  linking  to  MFC  statically 

#endif 

CReconstructionDlg  dig; 
mjpMainWnd  =  &dlg; 
int  nResponse  =  dlg.DoModal(); 
if  (nResponse  =  IDOK) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  OK 

} 

else  if  (nResponse  =  IDCANCEL) 

{ 

//  TODO:  Place  code  here  to  handle  when  the  dialog  is 
//  dismissed  with  Cancel 

} 

//  Since  the  dialog  has  been  closed,  return  FALSE  so  that  we  exit  the 
//  application,  rather  than  start  the  application's  message  pump, 
return  FALSE; 
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reconstructionDlg.cpp 


//  reconstructionDlg.cpp  :  implementation  file 

// 

#include  "stdafx.h" 

#include  "reconstruction.h" 

#include  "reconstructionDlg.h" 

#include  "recon.h" 

#include  "matrix_inv.h" 

extern  struct  param_st  params; 
extern  double  fmat[MAXN]; 
extern  hcol  limat[MAXN]; 
extern  double  sumljMAXN]; 

#ifdef_DEBUG 

#define  new  DEBUG_NEW 

#undefTfflS_FILE 

static  char  THIS_FILE[]  = _ FILE  ; 

#endif 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

I  I  CAboutDlg  dialog  used  for  App  About 

class  CAboutDlg  :  public  CDialog 

{ 

public: 

CAboutDlgO; 

//  Dialog  Data 

//  {  { AFX_DATA(CAboutDlg) 
enum  {  IDD  =  IDD  ABOUTBOX  }; 

//}}AFX_DATA 

//  ClassWizard  generated  virtual  fimction  overrides 

//{ {AFX_VIRTUAL(CAboutDlg) 

protected: 

virtual  void  DoDataExchange(CDataExchange*  pDX);  //  DDX/DDV 
support 

//}}AFX_VIRTUAL 

//  Implementation 
protected: 

//{  { AFX_MSG(CAboutDlg) 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 
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CAboutDlg::CAboutDlgO :  CDialog(CAboutDlg::IDD) 

{ 

//{  {  AFX_DATA_INIT(CAboutDlg) 

//}  }  AFX_DATA_INrr 


void  CAboutDlg::DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

//{  {AFX_DATA_MAP(CAboutDlg) 

//}  }  AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CAboutDlg,  CDialog) 

//{  {AFX_MSG_MAP(CAboutDlg) 

//  No  message  handlers 
//}}AFX_MSG_MAP 
END_MESSAGE_MAPO 

llllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

//  CReconstructionDlg  dialog 

CReconstructionDlg::CReconstmctionDlg(CWnd*  pParent  /*=NULL*/) 

;  CDialog(CReconstructionDlg::IDD,  pParent) 

{ 

//{  { AFX_DATA_BSrrr(CReconstmctionDlg) 

mStatusEdit  =  _T(""); 

m_Base_Edit  =  _T(""); 

m_XInc_Edit  =  0; 

m_XStart_Edit  =  0; 

mXStepsEdit  =  0; 

m_YInc_Edit  =  0; 

mYStartEdit  =  0; 

m_YSteps_Edit  =  0; 

m_WStart_Edit  =  0; 

mWStepsEdit  =  0; 

m_WInc_Edit  =  0; 

m_maxiter  =10; 

m_tol  =  0.0000 If; 

m_prog_text  =  _T(""); 

m_eti  =  _T(""); 

m_ett  =  _T(""); 

m_est_time  =  _T(""); 

m_outfile  =  _T(""); 

m_3nres=  1; 

m_xres=  1; 

//}}AFX_DATA_INIT 

//  Note  that  Loadicon  does  not  require  a  subsequent  Destroylcon  in  Win32 
m_hIcon  =  AfeGetAppO->LoadIcon(IDR_MAINFRAME); 

} 
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void  CReconstructionDlg;:DoDataExchange(CDataExchange*  pDX) 

{ 

CDialog:  :DoDataExchange(pDX); 

//{  {AFX_DATA_MAP(CReconstructioiiDlg) 
DDX_Control(pDX,  IDC_XRES_SPESf,  m_xres_con); 
DDX_Control(pDX,  EDC_XRES_BOX,  m_xres_edit_coii); 
DDX_Control(pDX,  IDC_YRES_SPESf,  m_yres_con); 
DDX_Control(pDX,  DDCYRESBOX,  m_yres_edit_con); 
DDX_Coiitrol(pDX,  IDC_OUTFILE_EDIT,  m  outfile  con); 
DDX_Control(pDX,  IDC_TOL_EDIT,  m_tol_con); 
DDX_Controi(pDX,  IDC_BASE_BOX,  mbasecon); 
DDX_Control(pDX,  E)C_MAXITER_EDIT,  m_maxiter_con); 
DDX_Coiitrol(pDX,  EDC_PROGRESSl,  m_prog_con); 
DDX_Controi(pDX,  IDCMAXITERSPIN,  m_maxiter_spin); 
DDX_Control(pDX,  IDCSTATUSBOX,  m_Status_Con); 
DDX_Text(pDX,  IDC_STATUS_BOX,  ni_Status_Edit); 
DDX_Text(pDX,  IDC_BASE_BOX,  m_Base_Edit); 
DDX_Text(pDX,  IDC_XINC_BOX,  m_XInc_Edit); 
DDX_Text(pDX,  IDC_XSTART_BOX,  m_XStart_Edit); 
DDX_Text(pDX,  IDC_XSTEPS_BOX,  m_XSteps_Edit); 
DDX_Text(pDX,  IDC_YINC_BOX,  m_YInc_Edit); 
DDX_Text(pDX,  IDC_YSTART_BOX,  ni_YStart_Edit); 
DDX_Text(pDX,  IDC_YSTEPS_BOX,  in_YSteps_Edit); 
DDX_Text(pDX,  IDC_WSTART_BOX,  m_WStart_Edit); 
DDX_Text(pDX,  IDC_WSTEPS_BOX,  m_WSteps_Edit); 
DDX_Text(pDX,  IDC_WINC_BOX,  m_WInc_Edit); 
DDX_Text(pDX,  EDC  MAXITER  EDIT,  m  maxiter); 
DDX_Text(pDX,  IDC_TOL_EDIT,  m_tol); 

DDX_Text(pDX,  IDC_PROG_TEXT,  m_prog_text); 
DDX_Text(pDX,  IDC_ETI_STATIC,  in_eti); 

DDX_Text(pDX,  IDC_ETT_STATIC,  m_ett); 

DDX_Text(pDX,  IDC_EST_STATIC,  in_est_time); 
DDX_Text(pDX,  IDC_OUTFILE_EDIT,  m_outfile); 
DDX_Text(pDX,  IDC_YRES_BOX,  m_yres); 

DDX_Text(pDX,  EDC_XRES_BOX,  m_xres); 
//}}AFX_DATA_MAP 


BEGIN_MESSAGE_MAP(CReconstructionDlg,  CDialog) 

//{ {AFX_MSG_MAP(CReconstructionDlg) 

ON_WM_SYSCOMMAND0 

ON_WM_PAINT0 

ON_WM_QUERYDRAGICON() 

ON_BN_CLICKED(IDC_EXIT_BUTTON,OnExitButton) 

ON_BN_CLICKED(IDC_GO_BUTTON,OnGoButton) 

ON_BN_CLICKED(IDC_CLEARSTATUS_BUTTON, 

OnClearstatusButton) 

ON_BN_CLICKED(IDC_CALBROWSE_BUTTON,OnCalbrowseButton) 

ON_BN_CLICKED(IDC_CANCEL_BUTTON,OnCancelButton) 
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//}}AFX_MSG_MAP 

END_MESSAGE_MAPO 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH 

II  CReconstructionDlg  message  handlers 

BOOL  CReconstructionDlg::OnInitDialogO 

{ 

CDialog::OnInitDialogO; 

//  Add  "About..."  menu  item  to  system  menu. 

//  IDM  ABOUTBOX  must  be  in  the  system  command  range. 
ASSERT((IDM_ABOUTBOX  &  OxFFFO)  =  IDM_ABOUTBOX); 
ASSERT(IDM_ABOUTBOX  <  OxFOOO); 

CMenu*  pSysMenu  =  GetSystemMenu(FALSE); 
if  (pSysMenu  !=NULL) 

{ 

CString  strAboutMenu; 

strAboutMenu.LoadString(IDS_ABOUTBOX); 
if  (!strAboutMenu.IsEmptyO) 

{ 

pSysMenu->AppendMenu(MF_SEPARATOR); 
pSysMenu->AppendMenu(MF_STRING,  IDMABOUTBOX, 
StrAboutMenu); 

} 

} 

//  Set  the  icon  for  this  dialog.  The  framework  does  this  automatically 
//  when  the  application's  main  window  is  not  a  dialog 

SetIcon(m_hIcon,  TRUE); . //  Set  big  icon 

SetIcon(m_hIcon,  FALSE); . ....//  Set  small  icon 

//  TODO:  Add  extra  initialization  here 

m_xres_con.SetRange  (0, 100); 
m_yres_con.SetRange  (0, 100); 
m_maxiter_spin.SetRange  (1, 100); 

return  TRUE;  //  return  TRUE  unless  you  set  the  focus  to  a  control 

} 

void  CReconstructionDlg:  :OnSysCommand(UINT  nID,  LPARAM  IParam) 

{ 

if  ((nID  &  OxFFFO)  =  IDM_ABOUTBOX) 

{ 

CAboutDlg  dlgAbout; 
dlgAbout.DoModal(); 

} 
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else 

{ 

CDiaiog::OnSysCommand(nID,  IParam); 

} 

} 

//  If  you  add  a  minimize  button  to  your  dialog,  you  will  need  the  code  below 
//  to  draw  the  icon.  For  MFC  applications  using  the  document/view  model, 
//  this  is  automatically  done  for  you  by  the  framework. 

void  CReconstructionDlg::OnPaintO 

{ 

if  (IsIconicQ) 

{ 

CPaintDC  dc(this);  //  device  context  for  painting 

SendMessage(WM_ICONERASEBKGND,  (WPARAM) 
dc.GetSafeHdcQ,  0); 

//  Center  icon  in  client  rectangle 

int  cxicon  =  GetSystemMetrics(SM_CXICON); 

int  cylcon  =  GetSystemMetrics(SM_CYICON); 

CRect  rect; 

GetClientRect(&rect); 

int  X  =  (rect.WidthO  -  cxicon  +  I)  /  2; 

int  y  =  (rect.Height()  -  cylcon  +  I)  /  2; 

//  Draw  the  icon 
dc.DrawIcon(x,  y,  mhicon); 

} 

else 

{ 

CDialog:;OnPaint(); 

} 


//  The  system  calls  this  to  obtain  the  cursor  to  display  while  the  user  drags 
//  the  minimized  window. 

HCURSOR  CReconstructionDlg;  rOnQueryDragIconO 

{ 

return  (HCURSOR)  m_hIcon; 

} 

void  CReconstructionDlg::OnExitButton() 

{ 

DestroyWindow  (); 
exit  (0); 


void  CReconstructionDlg:;OnGoButton() 
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int  iresult; 
char  fii[500]; 
char  base[500]; 
int  width,  height; 

LPVOID  paraml; 
char  *ext; 
mti,j,k,m; 
int  wave; 
float  *Q); 

int  pol_order[4]={3,l,2,0}; 

//  Get  parameters 
// 

UpdateData  (TRUE); 

//  Initialization 

// 

params.bcancel  =  FALSE; 
m_maxiter_con.SetReadOnly  (TRUE); 
m_xres_edit_con.SetRead(My  (TRUE); 
m_yres_edit_con.SetReadC)nly  (TRUE); 
m_xres_con.SetRange  (m_xres,  m_xres); 
m_yres_con.SetRange  (mjn-es,  m_yres); 
m_maxiter_spm.SetRange  (mmaxiter,  mmaxiter); 
m_toi_con.SetReadOnly  (TOUE); 
m_base_con.SetReadC)nly  (TRUE); 
m_outfile_con.SetReadOnly  (TRUE); 
m  ett  =  "Elapsed  Time  (Total)  :  00:00:00"; 
m_est_time  =  ""; 
m_prog_text  =  ""; 
m_prog_con.SetPos  (0); 

//  Open  output  file 

// 

strcpy  (fii,  (LPCTSTR)m_outfile); 
if(fil[0]  =  ^0')  { 

MessageBox  ("No  Output  File  Specified",  "Reconstruction",  MB  OK); 
return; 

} 

out  =  fopen  (fii,  "wbc"); 
if  (out  =  NULL)  { 

MessageBox  ("Error  opening  output  file",  "Reconstmction",  MB_OK); 
return; 

} 

m_Status_Edit  +=  "Opened  "  +  m_outfile  +  "\r\n"; 

UpdateData  (FALSE); 
update_status_scroll  0; 

//  Make  sure  Cal  file  has  been  specified  and  read  its  header 
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// 

strq)y  (fii,  (LPCTSTR)m_Base_Edit); 
if  (fii[0]  =  ^0')  { 

MessageBox  ("No  Calibration  File  Specified",  "Reconstruction", 
MB_OK); 

return; 

} 

OnOKO; 

//  Write  output  header 

// 

i^rintf  (out,  "%d  %d  %d  %d\r\n",  m_XSteps_Edit,  m  YSteps  Edit, 
m_WSteps_Edit,  POL_STATES); 

//  Loop  through  wavelengths 

// 

time  (&params.start_time); 

for  (1^0;  k<m_WSteps_Edit;  k-H-)  { 

wave  =  mWStartEdit  +  m_WInc_Edit*k; 

//  Perform  reconstructions  of  each  filter/pol  state  combination 

// 

for  (i=0;  i<NFILTERS-l;  i++)  { 

//  Get  cal  data  for  this  filter  and  its  corresponding  pol  state 

// 

sprintf  (base,  "Extracting  cal  data  for  filter  %d  \r\n",  pol_order[i]+l); 
mStatusEdit  +=  base; 

UpdateData  (FALSE); 
updatestatusscroll  (); 

iresult  =  readhcol  (fii,  pol_order[i]+l,  pol_order[i],  wave); 
if  (iresult  <  0) 
return; 

for  (j=0;  j<POL_STATES;  j++)  { 

//  Extract  image 

// 

sprintf  (base,  "Extracting  image  for  filter  %d  pol  state  %d  \r\n", 
pol_order[i]+ 1  ,pol_order[j]); 
m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
updatestatusscroll  (); 

iresult  =  read_gmat  (fii,  pol_order[i]+l,  pol_order[j],  wave); 
if  (iresult  <  0) 
return; 

//  Perform  reconstruction 

// 

reconstatus  =  IN_PROGRESS; 
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params.hwnd  =  m_hWnd; 
params.maxiter  =  m_maxiter; 
params.tolerance  =  m_tol; 
scale_image  0; 

nn[j+i*(NFILTERS-l)]  =  (float  *)calloc((unsigned)params.N, 

sizeof(float)); 

fp  =  rmO+i*(NFILTERS-l)]; 
for  (m=0;  m<parains.N;  m-H-) 

=  finat[m]; 

} 

for  (j=0;  j<params.N;  j-H-) 
free  (hniat|j].elem); 

} 

sprintf  (base,  "Calculations  for  %dnm  complete\r\n\r\n",  wave); 
m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 

W_mverse  (wave); 

} 

sprintf  (base,  "Calculation  of  W  inverse  complete\r\n"); 
m_Status_Edit  +=  base; 

UpdateData  (FALSE); 
update_status_scroll  (); 

MessageBox  ("Done",  "Calc_winv",  MB  OK); 


void  CReconstructionDlg:;W_inverse  (int  wave) 

{ 

float  aiT[NFILTERS-l][POL_STATES]={l,l,0,0,l,-l,0,0,l,0,l,0,l,0,0,l }; 
float  ♦♦a,  **yy,  **cc,  **bb,  y[NFILTERS-l][POL_STATES]; 
float  c[NFILTERS-l][l],  d,  coipSIFILTERS-1]; 
float  b[NFILTERS-l][l]; 

float  w[NFILTERS-l][POL_STATES],  **ww,  winv[NFILTERS- 
l][POL_STATES]; 

int  i,  j,  k,  m,  indx[NFILTERS-l]; 
intn; 

n  =  POL_STATES; 

//  Allocate  storage 

a  =  (float  *’'‘)nialloc((unsigned)  n*sizeof(float  *)); 
yy  =  (float  **)nialloc((unsigned)  n*sizeof(float  *)); 
bb  =  (float  **)malloc((xinsigned)  n*sizeof(float  *)); 
cc  =  (float  **)malloc((unsigned)  n*sizeof(float  *)); 
ww  =  (float  **)maUoc((unsigned)  n*sizeof(float  *)); 
for  (i=0;  i<n;  i-H-)  { 
a[i]  =  arr[i]; 

yy[i]=y[i]; 
bb[i]  =  b[i]; 
cc[i]  =  c[i]; 
ww[i]  =  w[i]; 
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} 

//  Invert  Sm  matrix 
ludcmp  (a,  n,  indx,  &d); 
for(j=0;j<n;j++)  { 
for  (k=0;  k<n;  k-H-) 
col[k]  =  0.0; 
colD]=1.0; 
lubksb  (a,  n,  indx,  col); 
for  (k=0;  k<n;  k++) 
y[k]D]  =  col[k]; 

} 

//  Loop  through  xy  positions 
for  (m=0;  m<params.N;  m-H-)  { 

//  Calculate  W  matrix 
^rintf  (out,  "%d  %dV\n",  wave,  m); 
for(j=0;j<n;j++)  { 
for  (k=0;  k<n;  k-H-) 

b[k][0]  =  *(rmD*n-l-k]-l-m); 
matrix  mult  (yy,  bb,  cc,  n,  n,  1); 
for  (k=0;  k<n;  k-H-) 
wD][k]  =  c[k][0]; 

} 

//  Invert  W  matrix 
ludcmp  (ww,  n,  indx,  &d); 
for(j=0;j<n;j-H^)  { 
for  (k=0;  k<n;  k-H-) 
col[k]  =  0.0; 
colQ]=1.0; 

lubksb  (ww,  n,  indx,  col); 
for  (k=0;  k<n;  k-H-) 
winv[k][j]  =  col[k]; 

} 

//  Write  out  W  inverse 
for  (k=0;  k<n;  k-H-)  { 
for(j=0;j<n;j-H-) 

forintf  (out,  "%9.5f  ",  winv[k][i]); 
Q)rintf  (out,  "W); 

} 

} 

} 

void  CReconstmctionDlg;:OnOK  0 

{ 

char  fh[500]; 
char  mess[200]; 

FILE  *in; 
mt  xpix,  3T)ix; 
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int  nfilters; 
int  xbin,  ybin; 

UpdateData  (TRUE); 


//  If  calibration  file  has  been  selected,  read  it's  header 

// 

strcpy  (fii,  (LPCTSTR)m_Base_Edit); 
if(fii[0]  !='\0')  { 

if  ((in  =  fopen(fii,  "r"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  fh); 

MessageBox  (mess,  "reconstruction",  MB_OK); 

} 

else  { 

fscanf  (in,  "%d  %d",  &xpix,  &ypix); 
fscanf  (in,  "%d  %d",  &xbm,  &ybin); 
fscanf  (in,  "%d  %d  %d",  &m_XStart_Edit,  &m_XInc_Edit, 
&m_XSteps_Edit); 

fscanf  (in,  "%d  %d  %d",  &m_YStart_Edit,  &m_YInc_Edit, 
&m_YSteps_Edit); 

fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &m_WStart_Edit,  &m_WInc_Edit, 
&m_WSteps_Edit); 

UpdateData  (FALSE); 
fclose  (in); 

} 

} 

UpdateWindow  (); 


void  CReconstructionDlg:  :OnClearstatusButtonO 

{ 

UpdateData  (TRUE); 
mStatusEdit  =  ""; 

UpdateData  (FALSE); 


void  CReconstructionDlg:  :update_status_scroll  0 

{ 

int  minscr,  maxscr; 


m_Status_Con.GetScrollRange  (SB  VERT,  &mmscr,  &maxscr); 
if  (maxscr  >11) 

m_Status_Con.LineScroll  (maxscr-11,  0); 

UpdateWindow  (); 

} 

void  CReconstructionDlg:  rOnCalbrowseButtonO 
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int  iresult; 
int  ext_off; 
int  i; 

ofd2.1StructSize  =  sizeof  (OPENFILENAME); 
ofii2.hInstance  =  NULL; 
ofn2.hwndOwner  =  NULL; 

ofa2.1pstrFilter  =  "CTISP  cal  files  (*.bcl)\0*.bcl\0All  Files  (*.*)\0*.*\0\0"; 

ofii2.1pstrCustomFilter  =  NULL; 

ofQ2.nMaxCustFilter  =  0; 

ofii2.nFilterIndex  =  1; 

ofii2.1pstrDefExt  =  "bcl"; 

ofii2.1CustData  =  NULL; 

ofiQ2.1pfiiHook  =  NULL; 

ofii2.1pTemplateNanie  =  NULL; 

ofii2.1pstrFile  =  cal_name; 

ofii2.nMaxFile  =  500; 

ofii2.1pstrFileTitle  =  caltitle; 

ofii2.nMaxFileTitle  =  99; 

ofii2.1pstrInitialDir  =  "WctispWdata"; 

ofii2.1pstrTitle  =  "Open  Calibration  File"; 

ofii2.Flags  =  OFN_FILEMUSTEXIST; 

cal_name[0]  =  '\0'; 

iresult  =  GetOpenFileName  (&ofii2); 
if  (iresult)  { 

UpdateData  (TRUE); 
mBaseEdit  =  calname; 
ext_off  =  ofii2.nFileExtension; 
for  (i=0;  i<ext_ofif;  i-H-) 

out_nanie[i]  =  cal_name[i]; 
out_name[ext_off]  =  'i'; 
out_name[ext_off+l]  =  'n'; 
out_nanie[ext_off+2]  =  V; 
out_name[ext_off+3]  =  '\0'; 
moutfile  =  out_name; 

UpdateData  (FALSE); 

OnOK  0; 

UpdateWindow  (); 

} 


LRESULT  CReconstructionDlg::WmdowProc(UINT  message,  WPARAM 
wParam,  LPARAM  IParam) 

{ 

inti,j,k,n; 

char  mess[200],  strl[100]; 
int  npos; 

time_t  currenttime; 


B188 


Appendix  B  Code  Listing 


int  eti,  ett,  est; 
static  int  estcnt=l; 
float  maxf,  sf; 
unsigned  char  val[1024]; 
float  fval; 
intindl,  ind2; 
static  int  nrecon=0; 

switch  (message)  { 

case  WM_ELEM_DONE : 

//  Update  time 

// 

return  (0); 

case  WM_ITER_DONE : 

//  Update  time  estimate 

// 

return  (0); 

case  WM_RECON_DONE : 

//  Update  time 

time  (&current_time); 

ett  =  current  time  -  params.start  time; 

sprintf  (mess,  "Elapsed  Time  (Total)  :  %02d:%02d:%02d",ett/3600, 
(ett%3600)/60, 

ett%60); 
mett  =  mess; 

UpdateData  (FALSE); 
update_status_scroll  0; 

//  Update  progress  meter 

// 

nrecon-H-; 

m__prog_con.SetRange  (0,  POL_STATES*(NFILTERS- 
1  )*m_WSteps_Edit); 

m_prog_con.SetPos  (nrecon); 

estcnt=  1; 

recon_status  =  FINISHED; 
return  (0); 

} 

return  CDialog::WindowProc(message,  wParam,  IParam); 
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void  CReconstructionDlg: :  OnCancelButtonQ 

{ 

int  iresult; 

iresult  =  MessageBox  ("Cancel  Reconstruction?",  "Confirm",  MB_YESNO); 

if  (iresult  =  ID  YES)  { 
params.bcancel  =  TRUE; 
mmaxitercon.SetReadOnly  (FALSE); 
m_xres_edit_con.SetReadOnly  (FALSE); 
m_yres_edit_con.SetReadC)nly  (FALSE); 
m_xres_con.SetRange  (0, 100); 
m_yres_con.SetRange  (0, 100); 
m  maxiter  spin.  SetRange  (1,1 00) ; 
m_tol_con.SetReadOnly  (FALSE); 
mbasecon.SetReadOnly  (FALSE); 
reconstatus  =  ABORTED; 

} 
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recoii_image,cpp 

#include  <math.h> 

#include  <strmg.h> 

#include  <stdio.h> 

#include  <stdlib.h> 

#mclude  "stdafe.h" 

#include  "reconstruction.h" 
#include  "reconstructionDlg.h" 
#include  "recon.h" 

struct  param_st  params; 

intN; 

int  npol; 

hcol  hmat[MAXN]; 
brow  hmatrow[MAXPIX]; 
double  ftnat[MAXN]; 
double  suml[MAXISr]; 
imsigned  short  *gmat; 
int  M; 


void  scaleimage  () 

{ 

double  sumh,  sumg; 
arr_elem  *elem; 
intm; 

char  mess[200]; 

//  Calculate  sum  of  H 
siunh  =  0.0; 
elem  =  hmat[0].elem; 
if  (lmiat[0].num  >  20) 

for  (m=0;  m<hmat[0].num;  m-H-)  { 
sumh  +=  elem->value; 
elem-H-; 

} 

//Calculate  sum  of  g 
for  (m=0;  m<M;  m-H-) 
sumg  -l-=  gmat[m]; 
if  (sumh  >  0.0) 

finat[0]  =  sumg  /  sumh; 
else 

fimat[0]  =  0.0; 
params.N  =  N; 
free  (gmat); 

SendMessage  (params.hwnd,  WM_RECON_DONE,  0,  0 ); 
return; 
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} 


void  getrow  (int  *hrow,  int  index) 

{ 

int  n,  m; 
arr_elem  *elem; 

for  (n=0;  n<N;  n-H-)  { 

*(hrow+n)  =  0; 
elem  =  hmat[n].elem; 
for  (m=0;  m<hmat[n].num;  m-H-)  { 
if  (elem->mdex  =  index)  { 

*(hrow+n)  =  elem->value; 
break; 

} 

else  if  (elem->index  >  index) 
break; 
elem++; 

} 

} 

} 

int  read_gmat  (char  *filename,  int  filter,  int  pol,  int  wave) 

{ 

FILE  *in; 
char  mess[100]; 
int  nfilters,  iflt; 
inti,j; 

int  xp,  yp,  wv,  niun; 

float  exp; 

int  index,  value; 

int  xstart,  xinc,  xsteps; 

int  ystart,  yinc,  ysteps; 

int  wstart,  wine,  wsteps; 

int  xpix,  ypix; 

int  ipol,  n; 

int  xbin,  ybin; 

//  Open  file 

// 

if  ((in  =  fopen(filenanie,  "r"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  filename); 
MessageBox  (NULL,  mess,  "calc  winv",  MB  OK); 
return  (-1); 

} 

//  Read  header 

// 
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fscanf  (in,  "%d  %d",  &xpix,  &ypix); 

fscanf  (in,  "%d  %d",  &xbin,  &ybin); 

fscanf  (in,  "%d  %d  %d",  &xstart,  &xinc,  &xsteps); 

fecanf  (in,  "%d  %d  %d",  &ystart,  &yinc,  &ysteps); 

fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &wstart,  &winc,  &wsteps); 
fscanf  (in,  "%d",  &npol); 
fscanf  (in,  "%d",  &n); 

//  Allocate  memory 

// 

gmat  =  (imsigned  short  ’'‘)calloc(M,  sizeof(unsigned  short)); 
if  (gmat  =  NULL)  { 

sprintf  (mess,  "Can't  allocate  memory"); 

MessageBox  (NULL,  mess,  "calc  winv",  MB  OK); 
return  (-1); 

} 

for  (i=0;  i<n;  i-H-)  { 

fscanf  (in,  "%d  %d  %d  %d  %d  %d  %f' ,  &xp,  &yp,  &iflt,  &ipol,  &wv, 
&num,  &exp); 

if  ((iflt  =  filter)  &&  (ipol  =  pol)  &&  (wv  =  wave))  { 
for  (j=0;  j<num;  j-H-)  { 

fscanf  (in,  "%d  %d",  &index,  &value); 
if  ((int)gmat[index]+value  <  65535) 
gmat[index]  +=  value; 
else 

gmat[index]  =  65535; 

} 

} 

else 

for  (j==0;  j<num;  j-H-) 

fscanf  (in,  "%d  %d",  &index,  &value); 

} 

fclose  (in); 
return  (0); 


int  CReconstructionDlg::  read  hcol  (char  *filename,  int  filter,  int  pol,  int  wave) 

{ 

FILE  *in; 

char  mess[200]; 

intniun; 

arrelem  *elem; 

int  i,  j,  k,  1,  n; 

int  xpos,  3^os,  pstate,  wv; 

int  index[1000],  value[1000]; 

float  exp_time; 

intind; 
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int  xpix,  ypix; 
int  nfilters,  iflt; 
int  xspace,  yspace; 
int  kk,  11; 
int  xbin,  ybin; 

//  Open  file 

// 

if  ((in  =  fopen(filename,  "r"))  =  NULL)  { 
sprintf  (mess,  "Error  opening  %s",  filename); 

MessageBox  (mess,  "read_hcol",  MB_OK); 
return  (-1); 

} 

//  Read  header 

// 

fscanf  (in,  "%d  %d",  &xprx,  &ypix); 
fscanf  (in,  "%d  %d",  &xbin,  &ybin); 
fscanf  (in,  "%d  %d  %d",  &m_XStart_Edit,  &m_XInc_Edit, 
&m_XSteps_Edit); 

fscanf  (in,  "%d  %d  %d",  &m_YStart_Edit,  &m_YInc_Edit, 
&m_YSteps_Edit); 

fscanf  (in,  "%d",  &nfilters); 

fscanf  (in,  "%d  %d  %d",  &m_WStart_Edit,  &m_WInc_Edit, 
&m_WSteps_Edit); 

fscanf  (in,  "%d",  &npol); 
fscanf  (in,  "%d",  &N); 

M  =  xpix  *  ypix; 

if  ((m  XSteps  Edit  !=  1)  ||  (m  YSteps  Edit  !=!)){ 

MessageBox  ("cal  file  has  multiple  positions",  "Calc  stokes",  MB  OK); 
return  (-1); 

} 

//  Determine  ou^ut  cube  parameters 

// 

xspace  =  0; 
yspace  =  0; 

params.xmin  =  mXStartEdit; 
params.xmax  =  m_XStart_Edit; 
params.ymin  =  m_YStart_Edit; 
params.ymax  =  mYStartEdit; 
params.xsize  =  mxres; 
params.ysize  =  m_yres; 
params.zsize  =  1; 
params.xsp  =  xspace; 
params.ysp  =  yspace; 

//  Read  calibration  data 

// 

for(j=0;j<N;j-H-)  { 
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fscanf  (in,  "%d  %d  %d  %d  %d  %d  %f' ,  &xpos,  &ypos,  &iflt,  &pstate, 
&WV,  &num,  &exp_time); 

//  sprintf  (mess,  "xpos=%d  ypos=%d  iflit=%d  pstate=%d  wv=%d  num=%d", 
xpos,  ypos,  iflt,  pstate,  wv,  num); 

//  MessageBox  (mess,  "Recon",  MB_OK); 

if  ((iflt  ==  filter)  &&  (pstate  =  pol)  &&  (wv  =  wave))  { 

//  sprintf  (mess,  "num  =  %d",  num); 

for  (i=0;  i<num;  i-H-) 

fscanf  (in,  "%d  %d",  &index[i],  &value[i]); 
n  =  0; 

for  (1^0;  k<m_yres;  k-H-)  { 
for  (1=0;  l<m_xres;  1++)  { 
hmat[n].nmn  =  num; 
limat[n].xpos  =  params.xmin  +  l*xspace; 
hmat[n].ypos  -  params.ymin  +  k*yspace; 
hmat[n].pstate  =  pstate; 
hmat[n].wave  =  wv; 
limat[n].exp_time  =  exptime; 

hmat[n].elem  =  (arrelem  *)calloc(mun,  sizeof(arr_elem)); 
if  (limat[n].elem  =  NULL)  { 

MessageBox  ("Can't  allocate  memory",  "read_hcol", 

MB_OK); 

return  (-1); 

} 

kk  =  (int)((float)(hmat[n].ypos-ypos)  /  (float)ybin); 

11  =  (int)((float)(hmat[n].xpos-xpos)  /  (float)xbin); 
for  (i=0;  i<num;  i-H-)  { 
elem  =  limat[n].elem  +  i; 
ind  =  index[i]  -i-  kk*xpix  -(- 11; 
if  (ind  >=  0  &&  ind  <  M)  { 
elem->index  =  ind; 
elem->value  =  value[i]; 

} 

else  { 

elem->index  =  0; 
elem->value  =  0; 

} 

} 

n-H-; 

} 

} 

} 

else 

for  (i=0;  i<num;  i-H-) 

fscanf  (in,  "%d  %d",  &index,  &value); 

} 

N  =  params.xsize  *  params.ysize  *  params.zsize; 
fclose  (in); 
return  (num); 
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} 


// 

//  stats  -  calculates  stats  for  an  image 

// 

void  stats  (unsigned  short  *buffer,  struct  stats_st  *image_stats) 

{ 

intk; 

float  BufferSum; 
float  avg; 

unsigned  short  *buff; 
int  imin,  imax; 


iniax=*buffer; 
iniin=*bufifer; 
buff  =  buffer; 

BufferSum  =  0; 
for  (k=0;k<M;k-H-)  { 

BufferSum  +=  ♦buff; 
if  (♦buff>imax)  imax=*buff; 
if  ((*buff<imin)  &&  (*buff  >  0))  imin=*buff; 
buff-H-; 

} 

avg  =  BufferSiun/M; 
image_stats->min  =  imin; 
image_stats->max  =  imax; 
image_stats->mean  =  avg; 


//  zero  -  zeroes  all  pixel  values  less  than  a  threshold 

// 

int  zero  (unsigned  short  ♦buffer,  float  threshold) 

{ 

unsigned  short  ♦buff; 
int  k; 
int  num; 

num  =  0; 

buff  =  buffer; 

for  (k=0;k<M;k-H-)  { 

if  ((float)^buff  <  threshold) 

♦buff=0; 

else 

num-H-; 

buffH-; 

} 
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return  (num); 


} 
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matrix_inv.cpp 

#include  "stdafic.h" 
#include  <math.h> 
#include  <stdlib.h> 

#defme  N  4 
#defme  TINY  l.Oe-20; 


void  ludcmp  (float  **a,  int  n,  int  *indx,  float  *d) 

{ 

inti,  imaxj,  k; 

float  big,  dum,  sum,  temp; 

float  w[N]; 

♦d=1.0; 

for  (i=0;  i<n;  i-H-)  { 
big  =  0.0; 
for(j=0;j<n;j-H-) 

if  ((temp=fabs(a[i][j]))  >  big)  big  =  temp; 
if  (big  =  0.0)  { 

MessageBox  (NULL,  "Matrix  is  singular",  "Calc_winv",  MB  OK); 
exit  (-1); 

} 

w[i]  =  1.0/big; 


for(j=0;j<n;j++)  { 

for  (i=0;  i<j;  i-H-)  { 
sum  =  a[i][j]; 
for  (k=0;  k<i;  k-H-) 

sum-=a[i][k]*a[k]G]; 
a[i]D]  =  sum; 

} 

big  =  0.0; 

for  (i=j;  i<n;  i+H-)  { 
sum  =  a[i][j]; 
for  (k=0;  k<j;  k-H-) 
sum-=a[i][k]*a[k]D]; 
a[i][j]  =  sum; 

if  ((dum=w[i]*fabs(sum))  >=  big)  { 
big  =  dum; 
imax  =  i; 

} 

} 

if  (j  !=  imax)  { 
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for  0^0;  k<n;  k-H-)  { 
dum  =  a[imax]|Tc]; 
a[imax][k]  =  a[j][k]; 
a[j][k]  =  dum; 

} 

*d  =  -(*d); 
w[imax]  =  w[j]; 

} 

indx[j]  =  imax; 

if(aD]D]  =  0.0) 
aD]D]  =  TINY; 

ifa!=(n-l)){ 

dum=  1.0/(aD-]U]); 

for  (i=j+l;  i<n;  i-H-) 
a[i][j]  *=  dum; 

} 


} 


void  lubksb  (float  **a,  int  n,  int  *mdx,  float  *b) 

{ 

mti,ii=-l,ipj; 
float  srun; 

for  (i=0;  i<ii;  i-H-)  { 
ip  =  indxp]; 
sum  =  b[ip]; 
b[ip]=b[i]; 
if(ii>=0) 

for(j=ii;j<=i-l;j-H-) 
sum  ■=  a[i][j]*b[j]; 
else  if  (sum) 
ii  =  i; 

b[i]  =  sum; 

} 


for  (i=n-l;  i>=0;  i-)  { 
sum  =  b[i]; 
for(j=i-i-l;j<n;j-H-) 
sum  -=  a[i][j]*b[j]; 
b[i]  =  sum/a[i][i]; 

} 


void  matrix_mult  (float  **a,  float  **b,  float  **c,  int  m,  int  n,  int  r) 

{ 
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float  Slim; 

for  (i=0;  i<m;  i-H-)  { 
for  (k=0;  k<r;  k-H-)  { 
sum  =  0.0; 
for  (j=0;  j<n;j-H-) 

sum+=a[i]D]*b[j][k]; 
c[i][k]  =  sum; 

} 

} 
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reconstnictioii.h 


//  reconstniction.h  :  main  header  file  for  the  RECONSTRUCTION  application 

// 

#if 

!defmed(AFX_RECONSTRUCTION_H_AlB2A085_981E_llDl_81D0_0000 

C0A97971_INCLUDEDJ 

#define 

AFX_RECONSTRUCTION_H_A1B2A085_98 1E_1  ID  1_8 1D0_0000C0A979 
71_INCLUDED_ 

#if_MSC_VER>=  1000 
#pragma  once 

#endif//_MSC_VER>=  1000 
#ifiidef_AFXWIN_H_ 

#error  include  'stdafs.h'  before  including  this  file  for  PCH 
#endif 

#include  "resource.h"  //  main  symbols 

IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIH^ 

//  CReconstructionApp: 

//  See  reconstruction.cpp  for  the  implementation  of  this  class 

// 

class  CReconstructionApp  :  public  CWinApp 

{ 

public: 

CReconstructionAppO; 

//  Overrides 

//  ClassWizard  generated  virtual  function  overrides 
//{  {AFX_VIRTUAL(CReconstructionApp) 
public: 

virtual  BOOL  Initlnstance(); 

//}}AFX_VIRTUAL 

//  Implementation 

//{  { AFX_MSG(CReconstructionApp) 

//  NOTE  -  the  ClassWizard  will  add  and  remove  member  functions  here. 
//  DO  NOT  EDIT  what  you  see  in  these  blocks  of  generated  code  ! 
//}}AFX_MSG 

DECLARE_MESSAGE_MAP0 

}; 
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Illllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 


//{  {AFX_INSERT_LOCATION} } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_RECONSTRUCTION_H_AlB2A085_981E_llDl_81D0_0000 

C0A97971_INCLUDEDJ 
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reconstructioiiDlg.h 

//  reconstructionDlg-h :  header  file 

// 

#if 

!defined(AFX_RECONSTRUCTIOlSIDLG_H_AlB2A087_981E_llDl_81D0_ 

0000C0A97971_INCLUDEDJ 

#define 

AFX_RECONSTRUCTIONDLG_H_A1B2A087_981E_11D1_81DO_OOOOCO 

A97971_INCLUDED_ 

#if_MSC_VER>=  1000 
#pragjiia  once 

#endif//_MSC_VER>=  1000 

#definePOL_STATES4 

#defmeNFILTERS5 

#defineMINXFOV435 

#defineMINYFOV456 

#defmeFOV_SIZE120 

lllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll^ 

I  I  CReconstnictionDlg  dialog 

class  CReconstnictionDlg  :  public  CDialog 

{ 

//  Construction 
public: 

CReconstructionDlg(CWnd*  pParent  =  NULL); . //  standard  constructor 

//  Dialog  Data 

//{  {AFX_DATA(CReconstructionDlg) 

enum  {  IDD  =  IDD_RECONSTRUCTION_DIALOG  }; 

CSpinButtonCtrl  m_xres_con; 

CEdit  m_xres_edit_con; 

CSpinButtonCtrl  m_yres_con; 

CEdit  m_yres_edit_con; 

CEdit  m_outfile_con; 

CEdit  mtolcon; 

CEdit  ni_base_con; 

CEdit  m_niaxiter_con; 

CProgressCtrl  m_prog_con; 

CSpinButtonCtrl  m_inaxiter_spin; 

CEdit  m_Status_Con; 

CString  m_Status_Edit; 

CString  m_Base_Edit; 
int  m_XInc_Edit; 
int  m_XStart_Edit; 
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int  m_XSteps_Edit; 
int  m_YInc_Edit; 
int  m_YStart_Edit; 
int  m_YSteps_Edit; 
int  m_WStart_Edit; 
int  m_WSteps_Edit; 
int  m_WInc_Edit; 
int  mmaxiter; 
float  m_tol; 

CString  m_prog_text; 

CString  m  eti; 

CString  m  ett; 

CString  m  est  time; 

CString  m  outfile; 

UBSTT  m__yres; 

UINT  mxres; 

//}}AFX_DATA 

//  User  defined  functions  and  data 

// 

int  read  hcol  (char  *,  int,  int,  int); 
void  update_status_scroll  (); 
void  OnOK  (); 
void  Winverse  (int); 

OPENFILENAME  ofii2,  ofii3; 
char  cal_name[500],  cal_title[100]; 
char  out_name[500],  out_title[100]; 

FILE  *out,  *out2; 
int  reconstatus; 

float  *nn[(NFILTERS-l)*POL_STATES]; 

// 

//  ClassWizard  generated  virtual  function  overrides 
// { { AFX_VIRTUAL(CReconstructionDlg) 
protected: 

virtual  void  DoDataExchange(CDataExchange’'‘  pDX);  //  DDX/DDV  support 
virtual  LRESULT  WindowProc(UINT  message,  WPARAM  wParam, 
LPARAM  IParam); 

//}}AFX_VIRTUAL 

//  Implementation 

protected: 

HICON  mhicon; 

//  Generated  message  map  functions 
//  {  {  AFX_MSG(CReconstructionDlg) 
virtual  BOOL  OnInitDialogO; 

afic  insg  void  OnSysConmiand(UINT  nID,  LPARAM  IParam); 
afic_msg  void  OnPaint(); 
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afe_msg  HCURSOR  OnQueiyDraglconQ; 
afe_msg  void  OnExitButtonO; 
afe_msg  void  OnGoButtonQ; 
afemsg  void  OnUpdateStatusBoxO; 
afe_msg  void  OnClearstatusButtonQ; 
afe  msg  void  OnCalbrowseButtonQ; 
afe_msg  void  OnCancelButtonQ; 

//}}AFX_MSG 

DECLARE_MESSAGE_MAPO 

}; 

//{  {AFX_INSERT_LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defmed(AFX_RECONSTRUCTIONDLG_H_AlB2A087_981E_llDl_81DO 

0000C0A97971_INCLIJDEDJ 
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recon.h 


#defme  WMJTER_DONE  (WM_APP  +  0) . 

#defme  WM_RECON_DONE  (WM_APP  +  1) 

#defme  WM_ELEM_DONE  (WM_APP  +  2) 

#defme  MAXN  30000 

#defme  MAXPIX  150000 

#defme  IN_PROGRESS  1 

#defme  FINISHED  2 

#defme  ABORTED  3 


struct  paramst 

{ 

HWND  hwnd; 

int 

maxiter; 

float 

tolerance; 

float 

diff; 

int 

n; 

int 

N; 

int 

npol; 

int 

iter; 

int 

xmin; 

int 

xmax; 

int 

ymin; 

int 

ymax; 

int 

xsize; 

int 

ysize; 

int 

zsize; 

int 

xsp; 

int 

ysp; 

BOOL  bcancel; 

time 

t  start_time: 

time 

t  itertime; 

}; 


struct  stats  st  { 
int  min; 
int  max; 
float  mean; 

}; 


t3^edef  stmct 

{ 

int  index; 
int  value; 
}  arr  elem; 

typedef  struct 

{ 
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intnum; 
int  xpos; 
int  ypos; 
int  pstate; 
int  wave; 
float  exp_time; 
aiT_elem  *elem; 

}  hcol; 

typedef  struct 

{ 

intnum; 
arr_elem  *elem; 

}  hrow; 

//  Prototypes 

// 

void  stats  (unsigned  short  *,  struct  stats_st  *); 

int  zero  (unsigned  short  *,  float); 

void  getrow  (int  *,  int); 

extern  void  scale_image  (); 

extern  int  read  gmat  (char  *,  int,  int,  int); 
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matrix  inv.h 


extern  void  ludcmp  (float  **,  int,  int  *,  float  *); 

extern  void  lubksb  (float  **,  int,  int  *,  float  *); 

extern  void  matrix  mult  (float  **,  float  **,  float  **,  int,  int,  int); 
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StdAfx.h 


//  stdafx.h  :  include  file  for  standard  system  include  files, 

//  or  project  specific  include  files  that  are  used  frequently,  but 
//  are  changed  infrequently 

// 

#if 

!defined(AFX_STDAFX_H_AlB2A089_981E_llDl_81D0_0000C0A97971_ 

.INCLUDED.) 

#define 

AFX.STDAFX.H_A1B2A089.981E_11D1.81D0.0000C0A97971_INCLU 

DED. 

#if.MSC.VER>=  1000 
#pragma  once 

#endif//.MSC_VER>=  1000 

#define  VC.EXTRALEAN...  //  Exclude  rarely-used  stuff  from  Windows  headers 

#include  <afxwin.h>  //  MFC  core  and  standard  components 
#include  <afxext.h>  //  MFC  extensions 
#include  <afxdisp.h>  //  MFC  OLE  automation  classes 

#ifhdef.AFX_NO.AFXCMN.SLIPPORT 

#include  <afxcmn.h>  . //  MFC  support  for  Windows  Common  Controls 

#endif  //  .AFX.NO.AFXCMN.SUPPORT 

//{  {  AFX.INSERT.LOCATION}  } 

//  Microsoft  Developer  Studio  will  insert  additional  declarations  immediately 
before  the  previous  line. 

#endif  // 

!defined(AFX_STDAFX.H_AlB2A089.981E_llD1.81D0.0000C0A97971. 

.INCLUDED.) 
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